nc-campaign-finance/R/get.R

spec_export_search_results <- function() {
  readr::cols(
    `Committee Name` = readr::col_character(),
    `SBoE ID` = readr::col_character(),
    Year = readr::col_character(),
    `Doc Type` = readr::col_character(),
    `Doc Name` = readr::col_character(),
    Amend = readr::col_character(),
    `Received Image` = readr::col_date(format = "%m/%d/%Y"),
    `Received Data` = readr::col_date(format = "%m/%d/%Y"),
    `Start Date` = readr::col_date(format = "%m/%d/%Y"),
    `End Date` = readr::col_date(format = "%m/%d/%Y"),
    Image = readr::col_character(),
    Data = readr::col_character()
  )
}

get_report_by_year_export <- function(year, report) {
  res <-
    req_report_by_year_export(year, report) |>
    req_perform() |>
    resp_body_string() |>
    readr::read_csv(col_types = spec_export_search_results())

  names(res)[which(names(res) == "SBoE ID")] <- "sboe_id"
  names(res) <- snakecase::to_snake_case(names(res))

  res |>
    mutate(amend = amend == "Y") |>
    relocate(year, doc_name) |>
    group_by(year, doc_name) |>
    targets::tar_group()
}