if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
chunk <- readBin("large_file.jsonl", "raw", n = 64 * 1024 * 1024)
part <- add_upload_part(upload_id = upload$id, data = chunk)
cat("Part ID:", part$id)
}
Run the code above in your browser using DataLab