## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE, comment = "#>",
  eval = identical(tolower(Sys.getenv("LLMRAGENT_RUN_VIGNETTES", "false")), "true")
)

## ----run----------------------------------------------------------------------
# library(LLMRagent)
# 
# strong <- LLMR::llm_config("deepseek", "deepseek-reasoner")
# cheap  <- LLMR::llm_config("groq", "openai/gpt-oss-20b", temperature = 0.8)
# 
# out <- think_harder(
#   "A mid-sized university wants to raise its course-evaluation response rate
#    from 35% to 70% within two semesters, without making responses mandatory
#    and without raffles or payments. Design the most promising intervention
#    portfolio, with predicted effect sizes where evidence exists.",
#   strong_config = strong,
#   cheap_config  = cheap,
#   n_approaches  = 5
# )
# 
# cat(out$answer)

## ----inspect------------------------------------------------------------------
# out$plan                                  # what the planner asked for
# out$workers[, c("approach", "success")]   # who delivered
# out$verification                          # what the reviewer objected to
# out$revised                               # whether a repair pass ran
# LLMR::llm_usage(out$workers)              # tokens spent on the cheap side