# \donttest{
# setup
library(dplyr)
dir <- tempdir()
db <- dbplyr::nycflights13_sqlite(tempdir())
## And here we go:
ark(db, dir)
# }
if (FALSE) {
## For a Postgres DB with schema, we can append schema names first
## to each of the table names, like so:
schema_tables <- dbGetQuery(db, sqlInterpolate(db,
"SELECT table_name FROM information_schema.tables
WHERE table_schema = ?schema",
schema = "schema_name"
))
ark(db, dir, tables = paste0("schema_name", ".", schema_tables$table_name))
}
Run the code above in your browser using DataLab