Last chance! 50% off unlimited learning
Sale ends in
drv <- dbDriver("MySQL")
con <- dbConnect(drv, group = "rs-dbi")
res <- dbSendQuery(con, "select * from vitalSuite")
is(drv, "DBIObject") ## True
is(con, "DBIObject") ## True
is(res, "DBIObject")
Run the code above in your browser using DataLab