if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
# After uploading all parts, complete the upload:
file_obj <- complete_upload(
upload_id = upload$id,
part_ids = list("part-001", "part-002", "part-003")
)
cat("File ID:", file_obj$id)
}
Run the code above in your browser using DataLab