fix failing checks

walkerke · Jan 24, 2025 · 8163ae3 · 8163ae3
1 parent 106043b
commit 8163ae3
Show file tree

Hide file tree

Showing 4 changed files with 6,038 additions and 6,033 deletions.
diff --git a/.DS_Store b/.DS_Store
diff --git a/data-raw/clean_pums_data_dictionary.R b/data-raw/clean_pums_data_dictionary.R
@@ -70,6 +70,7 @@ clean_data_dict <- function(path, survey, year) {
       survey = survey,
       year = year
       ) %>%
+
     select(survey, year, everything())
 
   # If the year is 2020, we need to pad the character values
@@ -79,6 +80,10 @@ clean_data_dict <- function(path, survey, year) {
              val_max = if_else(data_type == "chr", str_pad(val_max, val_length, "left", "0"), val_max))
   }
 
+  # Correct problem field with en-dash
+  pums_variables <- pums_variables %>%
+    mutate(val_label = str_replace_all(val_label, "Field of degree science and engineering related flag – National Science Foundation definition", "Field of degree science and engineering related flag - NSF definition"))
+
   print(glue::glue("{survey}{year}"))
   pums_variables