if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
updated <- update_assistant(
"asst_abc123",
instructions = "You are now an expert in time series analysis.",
model = "gpt-4o"
)
cat("Updated model:", updated$model)
}
Run the code above in your browser using DataLab