move data collection into subfolder

.gitignore

@@ -4,5 +4,6 @@
 .Rdata
 .history
 0-time-log.csv
-data-raw/
-data/
+data-raw
+collect/data-raw/
+collect/data-old/

DESCRIPTION → collect/DESCRIPTION

@@ -1,12 +1,12 @@
 Type: Project
-Package: nc-campaign-finance
-Title: What the Package Does (One Line, Title Case)
+Package: nc-campaign-finance-collect
+Title: Collect NC Campaign Finance Data
 Version: 0.0.0.9000
 Authors@R:
     person("Garrick", "Aden-Buie", , "garrick@adenbuie.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-7111-0077"))
-Description: What the package does (one paragraph).
-License: MIT + file LICENSE
+Description: Collect campaign finance data from the NC State Board of Elections.
+License: None
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.2.3

R/read_report_file.R → collect/R/read_report_file.R

@@ -52,13 +52,12 @@ read_report_section  <- function(section, info, report_path) {
 
 read_reports_by_sboe_id <- function(sboe_id) {
   raw_paths <- fs::dir_ls(
-    here::here("data-raw", "reports", sboe_id),
+    here::here("data-raw", "reports", sboe_id, "all"),
     glob = "*.txt"
   )
   names(raw_paths) <- fs::path_rel(raw_paths, here::here("data-raw", "reports"))
 
-  data <-
-    raw_paths |>
+  raw_paths |>
     map(read_report_file) |>
     transpose() |>
     map(list_rbind) |>
@@ -101,11 +100,14 @@ write_reports_by_sboe_id <- function(sboe_id) {
 }
 
 report_path_info <- function(report_path) {
+  # data-raw/reports/{sboe_id}/all/{report_id}_{received_date}.txt
   report_path <- fs::path_abs(report_path)
   x <- fs::path_rel(report_path, here::here("data-raw", "reports"))
   x <- fs::path_split(x)[[1]]
 
-  id <- strsplit(x[2], "_")[[1]][1]
+  # x[2] is "all"
+
+  id <- strsplit(x[3], "_")[[1]][1]
 
   list(
     sboe_id = x[1],