# NOT RUN {
db <- src_drill("localhost")
# Test with bare data source
flt1 <- tbl(db, "dfs.d.`/flights.csvh`")
cat(ctas_profile(flt1))
# Test with SELECT
flt2 <- tbl(db, sql("SELECT `year`, tailnum, time_hour FROM dfs.d.`/flights.csvh`"))
cat(ctas_profile(flt2, "dfs.d.`flights.parquet`"))
# }
Run the code above in your browser using DataLab