if (FALSE) {
id <- query_civis_file("schema.tablename", database = "my_database")
df <- read_civis(id, using = read.csv)
query <- sql("SELECT * FROM table JOIN other_table USING id WHERE var1 < 23")
id <- query_civis_file(query)
df <- read_civis(id, using = read.csv)
id <- query_civis_file(query_id, credential_id = 0000)
df <- read_civis(id, using = read.csv)
}
Run the code above in your browser using DataLab