## -----------------------------------------------------------------------------
#| label: setup
library(kuzco)


## -----------------------------------------------------------------------------
#| echo: false

chat_providers <- data.frame(
  provider = c(
    "ollama",
    "anthropic",
    "aws_bedrock",
    "azure_openai",
    "claude",
    "cloudfare",
    "databricks",
    "deepseek",
    "github",
    "google_gemini",
    "google_vertex",
    "groq",
    "huggingface",
    "mistral",
    "openai",
    "openrouter",
    "perplexity",
    "portkey",
    "snowflake",
    "vllm"
  ),
  `ellmer::function` = c(
    "ellmer::chat_ollama",
    "ellmer::chat_anthropic",
    "ellmer::chat_aws_bedrock",
    "ellmer::chat_azure_openai",
    "ellmer::chat_claude",
    "ellmer::chat_cloudflare",
    "ellmer::chat_databricks",
    "ellmer::chat_deepseek",
    "ellmer::chat_github",
    "ellmer::chat_google_gemini",
    "ellmer::chat_google_vertex",
    "ellmer::chat_groq",
    "ellmer::chat_huggingface",
    "ellmer::chat_mistral",
    "ellmer::chat_openai",
    "ellmer::chat_openrouter",
    "ellmer::chat_perplexity",
    "ellmer::chat_portkey",
    "ellmer::chat_snowflake",
    "ellmer::chat_vllm"
  ),
  stringsAsFactors = FALSE
)



chat_providers |> gt::gt()