if (check_for_pkg("RSQLite", message)) {
con <- nycflights_sqlite()
DBI::dbGetQuery(con, "SELECT flight, tailnum, origin, dest FROM flights LIMIT 10")
DBI::dbGetQuery(con, "SELECT faa, name, lat, lon, alt, tz FROM airports")
DBI::dbDisconnect(con)
}
Run the code above in your browser using DataLab