if (require("Lahman")) {
src_dt("Lahman")
batting_df <- tbl(src_df("Lahman"), "Batting")
if (require("data.table")) {
src_df("Lahman")
batting_dt <- tbl(src_dt("Lahman"), "Batting")
}
}
Run the code above in your browser using DataCamp Workspace