# \donttest{
if (interactive()) {
model <- create_openai()$embedding_model("text-embedding-3-small")
result <- create_embeddings(model, "Hello, world!")
print(length(result$embeddings[[1]]))
}
# }
Run the code above in your browser using DataLab