Fix naming in multi_geo_*

CT-Data-Haven · Dec 13, 2020 · 846bc12 · 846bc12
1 parent 0548729
commit 846bc12
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/R/multi_geo_acs.R b/R/multi_geo_acs.R
@@ -156,9 +156,10 @@ multi_geo_acs <- function(table, year = 2018, towns = "all", regions = NULL, cou
   lvls <- rev(fetch)
   list(lvls, names(lvls), 1:length(lvls)) %>%
     purrr::pmap_dfr(function(df, lvl, i) {
-      df %>% dplyr::mutate(level = paste(i, lvl, sep = "_"))
+      df %>%
+        dplyr::mutate(level = paste(i, lvl, sep = "_")) %>%
+        janitor::clean_names()
     }) %>%
     dplyr::mutate(year = year) %>%
-    dplyr::mutate(level = forcats::as_factor(level)) %>%
-    janitor::clean_names()
+    dplyr::mutate(level = forcats::as_factor(level))
 }
diff --git a/R/multi_geo_decennial.R b/R/multi_geo_decennial.R
@@ -140,9 +140,10 @@ multi_geo_decennial <- function(table, year = 2010, towns = "all", regions = NUL
   lvls <- rev(fetch)
   list(lvls, names(lvls), 1:length(lvls)) %>%
     purrr::pmap_dfr(function(df, lvl, i) {
-      df %>% dplyr::mutate(level = paste(i, lvl, sep = "_"))
+      df %>%
+        dplyr::mutate(level = paste(i, lvl, sep = "_")) %>%
+        janitor::clean_names()
     }) %>%
     dplyr::mutate(year = year) %>%
-    dplyr::mutate(level = forcats::as_factor(level)) %>%
-    janitor::clean_names()
+    dplyr::mutate(level = forcats::as_factor(level))
 }