## ----eval=FALSE---------------------------------------------------------------
# prompt <- "Hi there!" |>
#   prompt_wrap(
#     modify_fn = function(base_prompt) {
#       paste(base_prompt, "How are you?", sep = "\n\n")
#     }
#   )

## ----eval=FALSE---------------------------------------------------------------
# prompt <- "Hi there!" |>
#   prompt_wrap(\(x) paste(x, "How are you?", sep = "\n\n"))

## ----eval=FALSE---------------------------------------------------------------
# my_prompt_wrap <- function(prompt) {
#   modify_fn <- function(base_prompt) {
#     paste(base_prompt, "How are you?", sep = "\n\n")
#   }
# 
#   prompt_wrap(prompt, modify_fn)
# }
# prompt <- "Hi there!" |>
#   my_prompt_wrap()

## ----eval=FALSE---------------------------------------------------------------
# answer_as_boolean <- function(
#     prompt,
#     true_definition = NULL,
#     false_definition = NULL,
#     add_instruction_to_prompt = TRUE
# ) {
#   instruction <- "You must answer with only TRUE or FALSE (use no other characters)."
#   if (!is.null(true_definition))
#     instruction <- paste(instruction, glue::glue("TRUE means: {true_definition}."))
#   if (!is.null(false_definition))
#     instruction <- paste(instruction, glue::glue("FALSE means: {false_definition}."))
# 
#   modify_fn <- function(original_prompt_text) {
#     if (!add_instruction_to_prompt) {
#       return(original_prompt_text)
#     }
# 
#     glue::glue("{original_prompt_text}\n\n{instruction}")
#   }
# 
#   extraction_fn <- function(x) {
#     normalized <- tolower(trimws(x))
#     if (normalized %in% c("true", "false")) {
#       return(as.logical(normalized))
#     }
#     return(llm_feedback(instruction))
#   }
# 
#   prompt_wrap(prompt, modify_fn, extraction_fn)
# }