if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
# Upload training data for fine-tuning
file_obj <- upload_file("my_training_data.jsonl", purpose = "fine-tune")
cat("Uploaded file ID:", file_obj$id)
# Upload a document for an Assistant
file_obj <- upload_file("research_paper.pdf", purpose = "assistants")
cat("File ID:", file_obj$id)
}
Run the code above in your browser using DataLab