Доступ к API OpenAI (json) из R

Question

Я хочу получить доступ к OpenAI API с помощью следующей команды curl из R:

      curl https://api.openai.com/v1/engines/davinci/completions \
-H "Content-Type: application/json" \
-H "Authorization: Bearer YOUR_API_KEY" \
-d '{"prompt": "This is a test", "max_tokens": 5}'

Думаю, пакет curl (на CRAN) будет лучшим вариантом (?). Я никогда не использовал этот пакет, может ли кто-нибудь помочь мне начать с этого простого вызова?

Answer 1

Я создал пакет R с именем «openapi» (https://github.com/zhanghao-njmu/openapi), который поддерживает все API OpenAI и может генерировать потоковые возвраты (в настоящее время другие пакеты не имеют хороших решений), приложение ChatGPT, и различные надстройки RStudio. Добро пожаловать, чтобы использовать его.

Answer 2

Это легко сделать с помощью httr пакет (на CRAN), совет @r2evans:

      library(httr)
myurl <- "https://api.openai.com/v1/engines/davinci/completions"
apikey <- "YOUR_API_KEY"
seed_text <- "This is a test"
tokens <- 5
output <- POST(myurl, body = list(prompt = seed_text, max_tokens = tokens), add_headers(Authorization = paste("Bearer", apikey)), encode = "json")
content(output)$choices[[1]]$text
## [1] " of a national emergency communication"