R/get_candidate_contribution_data.R

In smach/maocpf: Download campaign contribution data from the Massachusetts Office of Campaign and Political Finance by candidate ID

#' Get latest candidate contributions by candidate ID
#'
#' @param id character string with candidate MA OCPF ID
#' @param start_date string in yyyy-mm-dd format or date object for contributions on or after a certain date, defaults to NULL (all candidate data downloads; this function filters it)
#'
#' @return data frame with contribution information
#' @export
#'
get_latest_candidate_contributions <- function(id, start_date = NULL) {
  url <- paste0("https://www.ocpf.us/ReportData/GetTextOutput?1=1&searchTypeCategory=A&filerCpfId=", id, "&sortField=Date&sortDirection=ASC")
  the_file <- paste0("temp/contributions_", id, "_", Sys.Date() )
  if(!dir.exists("temp")) {dir.create("temp")}
  download.file(url, destfile = the_file )
  the_data <- data.table::fread(the_file, colClasses = c(`Zip Code` = "character"))
  if(!is.null(start_date)) {
    if(is.character(start_date)) {
      start_date <- as.Date(start_date)
    }
    the_data[, Date := lubridate::mdy(Date)]
    the_data <- the_data[Date >= start_date]
  }
  the_data <- the_data[, .(Date, Candidate = `Filer Full Name Reverse`,
                              FirstName = `First Name`,
                              LastName = Name,
                              Address,
                              City,
                              State,
                              ZipCode = `Zip Code`,
                              Amount,
                              Occupation,
                              Employer,
                              Report = `Source Description`
                              )]
  data.table::setDF(the_data)
  if(nrow(the_data) == 0){
    the_data[nrow(the_data)+1,] <- NA
  }
  return(the_data)
}