if (FALSE) {
connectionDetails <- createConnectionDetails(
dbms = "postgresql",
server = "localhost",
user = "root",
password = "blah",
schema = "cdm_v4"
)
conn <- connect(connectionDetails)
renderTranslateExecuteSql(connection,
sql = "SELECT * INTO #temp FROM @schema.person;",
schema = "cdm_synpuf"
)
disconnect(conn)
}
Run the code above in your browser using DataLab