if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
# List all files
all_files <- list_files()
cat("Total files:", length(all_files$data))
# List only fine-tuning files
ft_files <- list_files(purpose = "fine-tune")
for (f in ft_files$data) cat(f$id, f$filename, "\n")
}
Run the code above in your browser using DataLab