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