openrouter.R

openrouter.R

library(httr2)

call_openrouter <- function(prompt, model = "openai/gpt-3.5-turbo") {
  req <- request("https://openrouter.ai/api/v1/chat/completions") %>%
    req_headers(
      "Content-Type" = "application/json",
      "Authorization" = paste("Bearer", Sys.getenv("OPENROUTER_API_KEY")),
      "HTTP-Referer" = "https://your-site-url.com",  # Optional
      "X-Title" = "Your Site Name"  # Optional
    ) %>%
    req_body_json(list(
      model = model,
      messages = list(list(role = "user", content = prompt))
    )) %>%
    req_perform()
  
  resp <- resp_body_json(req)
  return(resp$choices[[1]]$message$content)
}

result <- call_openrouter("What is the capital of France?")
print(result)

# curl converter
request("https://openrouter.ai/api/v1/chat/completions") |>
  req_method("POST") |>
  req_headers(Authorization = paste0("Bearer ", Sys.getenv("OPENROUTER_API_KEY"))) |>
  req_body_raw(
    '{\n  "model": "openai/gpt-3.5-turbo",\n  "messages": [\n    {\n      "role": "user",\n      "content": "What is the meaning of life?"\n    }\n  ]\n  \n}',
    type = "application/json"
  ) |>
  req_perform()