if (requireNamespace("duckdb", quietly = TRUE)) {
con <- DBI::dbConnect(duckdb::duckdb())
DBI::dbWriteTable(
con,
"sales",
data.frame(region = c("EMEA", "APAC"), revenue = c(100, 200))
)
src <- data_source(con)
src$tables
DBI::dbDisconnect(con, shutdown = TRUE)
}
Run the code above in your browser using DataLab