if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
response <- create_chat_completion(
messages = list(list(role = "user", content = "What is machine learning?")),
model = "gpt-4o"
)
cat(response$choices[[1]]$message$content)
# With extra parameters
response <- create_chat_completion(
messages = list(list(role = "user", content = "Write a poem")),
model = "gpt-4o",
temperature = 1.2,
max_tokens = 200
)
}
Run the code above in your browser using DataLab