## Not run:
# 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")
# ## End(Not run)
Run the code above in your browser using DataLab