process_report_list <- function(path_report_list) {
  out <- path("..", "data", "report_list", "part-0.parquet")
  dir_create(path_dir(out))

  read_csv(
    path_report_list,
    col_types = cols(
      year = col_integer(),
      report_id = col_integer()
    )
  ) |>
    arrow::write_parquet(out)
}