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

## -----------------------------------------------------------------------------
# library(querychat)
# library(palmerpenguins)

## -----------------------------------------------------------------------------
# qc <- querychat(penguins)
# cat(qc$system_prompt)

## -----------------------------------------------------------------------------
# qc <- querychat(
#   penguins,
#   data_description = "data_description.md"
# )
# 
# cat(qc$system_prompt)

## -----------------------------------------------------------------------------
# qc <- querychat(
#   penguins,
#   extra_instructions = "instructions.md"
# )
# 
# cat(qc$system_prompt)

## -----------------------------------------------------------------------------
# instructions <- "
# - Use British spelling conventions
# - Stay on topic and only discuss the data dashboard
# - Refuse to answer unrelated questions
# "
# 
# qc <- querychat(
#   penguins,
#   extra_instructions = instructions
# )
# 
# cat(qc$system_prompt)