sql/international-households.R

In cwolfsonseeley/bragdoc: Tools for summarizing PD's work

# number of international households rated
# within given date range
# example: international_households(from = 20160701, to = 20170630)
international_households <- function(from, to) {
    if (!assertthat::is.count(from))
        stop(from, " is not a valid date")
    if (!assertthat::is.count(to))
        stop(to, " is not a valid date")
    
    international_households_query <- getcdw::parameterize_template("sql/international-households.sql")
    getcdw::get_cdw(international_households_query(from = from, to = to))
}