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

## -----------------------------------------------------------------------------
# library(querychat)
# library(palmerpenguins)
# 
# qc <- querychat(mtcars)
# qc$app()  # Launch the app

## -----------------------------------------------------------------------------
# library(DBI)
# library(duckdb)
# library(querychat)
# 
# # Connect to a DuckDB database file
# con <- dbConnect(duckdb::duckdb(), dbdir = "my_database.duckdb")
# 
# qc <- querychat(con, "my_table")
# qc$app()  # Launch the app
# 
# # Don't forget to disconnect when done
# # dbDisconnect(con)

## -----------------------------------------------------------------------------
# library(DBI)
# library(RSQLite)
# library(querychat)
# 
# # Connect to a SQLite database file
# con <- dbConnect(RSQLite::SQLite(), "my_database.db")
# 
# qc <- querychat(con, "my_table")
# qc$app()  # Launch the app
# 
# # Don't forget to disconnect when done
# # dbDisconnect(con)

## -----------------------------------------------------------------------------
# library(DBI)
# library(RPostgres)
# library(querychat)
# 
# # Connect to PostgreSQL
# con <- dbConnect(
#   RPostgres::Postgres(),
#   host = "localhost",
#   port = 5432,
#   dbname = "mydatabase",
#   user = "myuser",
#   password = "mypassword"
# )
# 
# qc <- querychat(con, "my_table")
# qc$app()  # Launch the app
# 
# # Don't forget to disconnect when done
# # dbDisconnect(con)

## -----------------------------------------------------------------------------
# library(DBI)
# library(RMariaDB)
# library(querychat)
# 
# # Connect to MySQL
# con <- dbConnect(
#   RMariaDB::MariaDB(),
#   host = "localhost",
#   port = 3306,
#   dbname = "mydatabase",
#   user = "myuser",
#   password = "mypassword"
# )
# 
# qc <- querychat(con, "my_table")
# qc$app()  # Launch the app
# 
# # Don't forget to disconnect when done
# # dbDisconnect(con)

## -----------------------------------------------------------------------------
# library(DBI)
# library(duckdb)
# 
# con <- dbConnect(duckdb::duckdb(), dbdir = "my_database.duckdb")
# 
# # Write a data frame to the database
# dbWriteTable(con, "penguins", penguins)
# 
# # Or from CSV
# duckdb::duckdb_read_csv(con, "my_table", "path/to/your/file.csv")