if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
msg <- create_message(
thread_id = "thread_abc123",
role = "user",
content = "What is the difference between FE and RE estimators?"
)
cat("Message ID:", msg$id)
}
Run the code above in your browser using DataLab