if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
thread <- create_thread()
cat("Thread ID:", thread$id)
# With an initial message
thread <- create_thread(
messages = list(list(role = "user", content = "Hello!"))
)
}
Run the code above in your browser using DataLab