openai artwork with R

使用R進行 openai 藝術創作

https://youtu.be/izha883dq-E

【謝謝各位大大按 讚、訂閱、開啟小鈴鐺】

OpenAI [https://openai.com/] 相繼推出 GPT-3 語言模型與 DALL-E2 AI 產生器, 使用者只要輸入文字, 即可以產生的超現實主義圖片, 參考圖1所示, 本篇文章示範 R 與 openai 套件的應用.

圖1 太空人騎馬照

步驟1 建立 OpenAI 帳號

開啟 OpenAI 網頁的API連結 [https://openai.com/api/], 參考圖2. 如果第1次登入, 選取右側 SIGN UP按鈕, 新增帳號. 如果已經有帳號, 直接選取左側 LOG IN 按鈕

圖2 OpenAI API 畫面

登入成功後, 右側 [M Personal] \ View API Keys \ + Create new secret key, 結果會顯示 API Key, 記得按下 [Copy] 按鈕, 後續須複製到 R 程式碼.

圖3 API Key 畫面

右側 [M Personal] \ Manage account, 結果會顯示目前帳戶餘額, 預設前3個月會有 USD.18元可使用. 注意本項服務不是完全免費. Pricing 網頁有提供價格訊息 [https://openai.com/api/pricing/].

圖4 Manage accoun 畫面

步驟2 安裝 openai 套件

# https://cran.r-project.org/web/packages/openai/index.html

install.packages("openai")

步驟3 完整 R 程式碼

# Title    : openai artwork with R

# Author   : Ming-Chang Lee

# Email    : alan9956@gmail.com

# RWEPA    : http://rwepa.blogspot.tw/

# GitHub   : https://github.com/rwepa

# Encoding : UTF-8

# 步驟1 建立 OpenAI 帳號

# https://openai.com/api/

# 步驟2 安裝 openai 套件

# https://cran.r-project.org/web/packages/openai/index.html

install.packages("openai")

# 輸入步驟1所建立的 API key

Sys.setenv(

  OPENAI_API_KEY = '輸入步驟1所建立的 API key'

)

# 載入 openai 套件

library(openai)

# 建立完成物件

create_completion(

  model = "ada",

  prompt = "Generate a question and an answer"

)

# 範例1 太空人騎馬照

create_image("An astronaut riding a horse in a photorealistic style")

# 上述程式碼會建立連結網址, 參考圖5.

圖5 create_image 畫面

# 將 https:// 開始的所有字元複製到瀏覽器, 即可呈現圖1之結果.

# 範例2 山谷飛兔照

create_image("flying rabbit in the valley")

圖6 山谷飛兔照

# HAPPY NEW YEAR 2023