# \donttest{
if (requireNamespace("DBI", quietly = TRUE) &&
requireNamespace("RSQLite", quietly = TRUE)) {
con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
on.exit(DBI::dbDisconnect(con), add = TRUE)
DBI::dbWriteTable(con, "cars", head(cars, 20), overwrite = TRUE)
out <- llm_bundle_from_db(
con, "cars",
n = 100, level = "medium",
formats = c("csv","rds"),
path = tempdir(), filename = "db_bundle",
seed = 1, write_prompt = TRUE, zip = TRUE
)
}
# }
Run the code above in your browser using DataLab