if (FALSE) {
# OpenAI Example (chat)
openai_config <- llm_config(
provider = "openai",
model = "gpt-4o-mini",
api_key = Sys.getenv("OPENAI_KEY"),
temperature = 0.7,
max_tokens = 500
)
# OpenAI Embedding Example (overwriting api_url):
openai_embed_config <- llm_config(
provider = "openai",
model = "text-embedding-3-small",
api_key = Sys.getenv("OPENAI_KEY"),
temperature = 0.3,
api_url = "https://api.openai.com/v1/embeddings"
)
text_input <- c("Political science is a useful subject",
"We love sociology",
"German elections are different",
"A student was always curious.")
embed_response <- call_llm(openai_embed_config, text_input)
# parse_embeddings() can then be used to convert the embedding results.
# Voyage AI Example:
voyage_config <- llm_config(
provider = "voyage",
model = "voyage-large-2",
api_key = Sys.getenv("VOYAGE_API_KEY")
)
embedding_response <- call_llm(voyage_config, text_input)
embeddings <- parse_embeddings(embedding_response)
# Additional processing:
embeddings |> cor() |> print()
}
if (FALSE) {
# OpenAI Example (chat)
openai_config <- llm_config(
provider = "openai",
model = "gpt-4o-mini",
api_key = Sys.getenv("OPENAI_KEY"),
temperature = 0.7,
max_tokens = 500
)
# OpenAI Embedding Example (overwriting api_url):
openai_embed_config <- llm_config(
provider = "openai",
model = "text-embedding-3-small",
api_key = Sys.getenv("OPENAI_KEY"),
temperature = 0.3,
api_url = "https://api.openai.com/v1/embeddings"
)
text_input <- c("Political science is a useful subject",
"We love sociology",
"German elections are different",
"A student was always curious.")
embed_response <- call_llm(openai_embed_config, text_input)
# parse_embeddings() can then be used to convert the embedding results.
# Voyage AI Example:
voyage_config <- llm_config(
provider = "voyage",
model = "voyage-large-2",
api_key = Sys.getenv("VOYAGE_API_KEY")
)
embedding_response <- call_llm(voyage_config, text_input)
embeddings <- parse_embeddings(embedding_response)
embeddings |> cor() |> print()
}
Run the code above in your browser using DataLab