R/query.R

In tlevine/scarsdale_assessment_database: Query the database about Scarsdale's new property assessment

library(sqldf)

query <- function(sql) {
  .connection <- dbConnect(MySQL(),
                           user = 'public',
                           password = 'public',
                           dbname = 'scarsdale',
                           host = 'tlevine.the-nsa.org')
  sqldf(sql, connection = .connection)
}