Merge pull request #558 from arthurgailes/patch-2

allow underscores in geography in place of spaces
walkerke · Jul 16, 2024 · 0ebaeb5 · 0ebaeb5
2 parents 3600d0a + d3a47ee
commit 0ebaeb5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/acs.R b/R/acs.R
@@ -200,6 +200,9 @@ get_acs <- function(geography, variables = NULL, table = NULL, cache_table = FAL
 
   if (geography == "puma") geography <- "public use microdata area"
 
+  # allow underscores and convert back to spaces
+  if (grepl("_", geography) & !grepl(" ", geography)) geography <- gsub("_", " ", geography)
+
   if (any(grepl("^S[0-9]|^DP", variables)) && geography == "block group") {
     stop("Block groups are not an available geography in the Data Profile and Subject Tables datasets.",
          call. = FALSE)