pg <- dbDriver("PostgreSQL")
con <- dbConnect(pg, "user", "password")
is(pg, "dbObjectId") ## True
is(con, "dbObjectId") ## True
isIdCurrent(con) ## True
q("yes")
\$ R
isIdCurrent(con) ## False
Run the code above in your browser using DataLab