db <- database("Eleicoes")
dbTempTable(db, tab_name = "gerais_2006",
query = select_events(db, tab = "Candidatos",
columns = c("nome", "resultado", "partido"),
where = "data > '1997-01-01'",
sql_only = TRUE))
Run the code above in your browser using DataLab