R SDK

install.packages("nrouter", repos = c(
  nrouterai = "https://nrouterai.r-universe.dev",
  CRAN = "https://cloud.r-project.org"
))

NROUTER_API_KEY=sk-nrouter-xxxxxxxxxxxx

library(nrouter)

client <- nrouter_client(
  api_key = Sys.getenv("NROUTER_API_KEY"),
  base_url = "https://api.nrouter.ai/v1"
)

result <- nrouter_chat_completions(client, list(
  model = "gpt-5.4-mini",
  messages = list(list(role = "user", content = "Explain linear mixed-effects models."))
))

cat(result$body$choices[[1]]$message$content, "\n")
if (nrouter_is_priced(result$meta)) {
  cat("Cost: $", result$meta$cost, " | ID: ", result$meta$request_id, "\n")
}

nrouter_messages_stream(
  client,
  list(
    model = "claude-haiku-4-5-20251001",
    max_tokens = 256,
    messages = list(list(role = "user", content = "Write a haiku."))
  ),
  callback = function(chunk) {
    cat(chunk$delta)
    return(TRUE)
  }
)
cat("\n")