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

out_officers <- function(path_data_prep_officers, path_out_report_list) {
  out <- path("data-out", "officers", "officers.parquet")
  dir_create(path_dir(out))

  report_list <- out_open_dataset_db(path_out_report_list)

  officers <-
    prep_open_dataset_db(path_data_prep_officers) |>
    semi_join(report_list, by = "report_id") |>
    rename(address_lookup = address) |>
    distinct() |>
    collect()

  arrow::write_parquet(officers, out)

  dirname(out)
}