if (FALSE) {
drv <- dbDriver("PostgreSQL")
con <- dbConnect(drv, user= "user", password="password", dbname="sample")
dbListTables(con)
rs <- dbSendQuery(con, query.sql)
dbGetStatement(rs)
dbHasCompleted(rs)
info <- dbGetInfo(rs)
names(dbGetInfo(drv))
# DBIConnection info
names(dbGetInfo(con))
# DBIResult info
names(dbGetInfo(rs))
}
Run the code above in your browser using DataLab