if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
models <- list_models()
# Extract all model IDs as a character vector
model_ids <- sapply(models$data, `[[`, "id")
cat(model_ids, sep = "\n")
# Find all embedding models
embed_models <- model_ids[grepl("embedding", model_ids)]
cat(embed_models, sep = "\n")
}
Run the code above in your browser using DataLab