## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----------------------------------------------------------------------------- library(chattr) chattr_use("gpt4") chattr_defaults() ## ----------------------------------------------------------------------------- my_list <- function() { return(ls(pattern = "x", envir = globalenv())) } ## ----------------------------------------------------------------------------- chattr_defaults(prompt = "{ my_list() }") ## ----------------------------------------------------------------------------- x1 <- 1 x2 <- 2 ## ----------------------------------------------------------------------------- chattr(preview = TRUE) ## ----------------------------------------------------------------------------- x3 <- 3 chattr(preview = TRUE)