sqlite <- dbDriver("SQLite")
con <- dbConnect(sqlite, ":memory:")
is(sqlite, "dbObjectId") ## True
is(con, "dbObjectId") ## True
isIdCurrent(con) ## True
dbDisconnect(con)
isIdCurrent(con) ## False
Run the code above in your browser using DataLab