if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
# Single embedding
resp <- create_embedding("Hello world", model = "text-embedding-3-small")
vec <- unlist(resp$data[[1]]$embedding)
cat("Vector length:", length(vec))
}
Run the code above in your browser using DataLab