Rename FLCensusVTD to FLCensus

Even though the csv file is named FLCensusVTD, it is called FLCensus in the QSS code.

R/FLCensusVTD.R → R/FLCensus.R

@@ -27,4 +27,4 @@
 #' predicting individual ethnicity from voter registration records.” \emph{Political Analysis},
 #' vol. 24, no. 2 (Spring), pp. 263–272. doi: https://doi.org/10.1093/pan/mpw001 }
 #'}
-"FLCensusVTD"
+"FLCensus"

data-raw/build.R

@@ -6,6 +6,9 @@ library("purrr")
 # Do not include these
 IGNORES <- c("chechen", "resources")
 
+# Rename these csv files from QSS
+RENAMES <- c(names = "cnames", FLCensusVTD = "FLCensus")
+
 # copy csv files from qss/ to data-raw/
 # ----------------------------------------
 csv_files <- dir("qss", pattern = ".*\\.csv$", full.names = TRUE,
@@ -35,9 +38,15 @@ qss_data <- new.env()
 for (fn in dir(csv_dir, pattern = "\\.csv$", full.names = TRUE)) {
   dataname <- make.names(tools::file_path_sans_ext(basename(fn)))
   if (dataname %in% IGNORES) {
-    message("Ignoring", dataname)
+    message("Ignoring ", dataname)
     next
   }
+  if (dataname %in% names(RENAMES)) {
+    print(dataname)
+    newname <- RENAMES[dataname]
+    message("Renaming ", dataname, " to ", newname)
+    dataname <- newname
+  }
   if (dataname == "names") {
     message("For names, using cnames instead")
     dataname <- "cnames"