drv <- RSQLite::SQLite()
con <- dbConnect(drv)
rs <- dbSendQuery(con, "SELECT 1")
is(drv, "DBIObject") ## True
is(con, "DBIObject") ## True
is(rs, "DBIObject")
dbClearResult(rs)
dbDisconnect(con)
Run the code above in your browser using DataLab