if (FALSE) {
con <- DBI::dbConnect(RPostgres::Postgres(),
dbname = "cdm",
host = "localhost",
user = "postgres",
password = Sys.getenv("PASSWORD"))
cdm <- cdmFromCon(con, cdmName = "test", cdmSchema = "public") %>%
cdmSelectTbl(tblGroup("vocab"))
}
Run the code above in your browser using DataLab