if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
file_size <- file.info("huge_training.jsonl")$size
upload <- create_upload(
purpose = "fine-tune",
filename = "huge_training.jsonl",
bytes = file_size,
mime_type = "application/json"
)
cat("Upload ID:", upload$id)
}
Run the code above in your browser using DataLab