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

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

## -----------------------------------------------------------------------------
# querychat_app(penguins)

## -----------------------------------------------------------------------------
# querychat_app(penguins)

## -----------------------------------------------------------------------------
# library(palmerpenguins)
# 
# qc <- QueryChat$new(
#   penguins,
#   tools = c("query", "update", "visualize")
# )
# qc$app()