if (FALSE) {
conn <- dbConnect(DatabaseConnectorDriver(),
dbms = "postgresql",
server = "localhost/ohdsi",
user = "joe",
password = "secret"
)
querySql(conn, "SELECT * FROM cdm_synpuf.person;")
dbDisconnect(conn)
}
Run the code above in your browser using DataLab