if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
asst <- create_assistant(
model = "gpt-4o",
name = "Stats Helper",
instructions = "You help with statistical analysis in R and Python.",
tools = list(list(type = "code_interpreter"))
)
cat("Created assistant ID:", asst$id)
}
Run the code above in your browser using DataLab