## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", eval = FALSE)

## -----------------------------------------------------------------------------
# library(ellmercodex)

## -----------------------------------------------------------------------------
# models <- codex_models()
# models[c("id", "display_name", "default_reasoning_effort",
#          "supported_reasoning_efforts")]

## -----------------------------------------------------------------------------
# chat <- chat_codex(model = "gpt-6-luna")

## -----------------------------------------------------------------------------
# Sys.setenv(ELLMERCODEX_MODEL = "gpt-6-luna")
# chat <- chat_codex()

## -----------------------------------------------------------------------------
# chat <- chat_codex(model = "gpt-6-luna", effort = "low")

## -----------------------------------------------------------------------------
# chat <- chat_codex(
#   model = "gpt-6-luna",
#   params = ellmer::params(reasoning_effort = "max")
# )