nc-campaign-finance/process/R/spot_fix_report_list.R

spot_fixes_report_list <- list(
  list(
    # This report is actually an amended report
    ids = list(report_id = 195397),
    values = list(amended = TRUE)
  ),
  list(
    # This report is actually the first one, not amended
    ids = list(report_id = 159437),
    values = list(amended = FALSE)
  ),
  list(
    ids = list(report_id = 161042),
    values = list(doc_name = "Mid Year Semi-Annual")
  )
)

spot_fix_report_list <- function(report_list) {
  for (fix in spot_fixes_report_list) {
    fix_tbl <- fix |> map(as_tibble) |> unname() |> list_cbind()
    report_list <- rows_update(report_list, fix_tbl, by = names(fix$ids))
  }

  report_list
}