if (FALSE) {
library(DBI)
library(duckdb)
library(dplyr)
con <- dbConnect(duckdb::duckdb(dbdir = tempfile()))
dbWriteTable(con, "mtcars", mtcars)
tbl_obj <- tbl(con, "mtcars")
# Returns a lazy summary table
summary(tbl_obj)
dbDisconnect(con)
}
Run the code above in your browser using DataLab