fix empty geometry bug

christopherkenny · Mar 20, 2024 · e5859aa · e5859aa
1 parent a552cea
commit e5859aa
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,7 @@
 # censable 0.0.6
 
 * Fixes an error where `build_dec()` and `build_acs()` fail when `geography = 'state'`.
+* Fixes an error where empty geometries are returned with `county = NULL` for some `geography` entries.
 
 # censable 0.0.5
 

diff --git a/R/api.R b/R/api.R
@@ -167,6 +167,9 @@ get_geometry <- function(geography, ...) {
   if (geography == 'blocks' && 'county' %in% names(list(...)) && is.null(list(...)[['county']])) {
     args[['county']] <- NULL
   }
+  if ('county' %in% names(args) && is.null(args[['county']])) {
+    args <- args[-which(names(args) == 'county')]
+  }
   do.call(fn, args) %>%
     dplyr::rename_with(.fn = function(x) stringr::str_sub(x, end = -3),
                        .cols = dplyr::any_of(c('GEOID20', 'GEOID10', 'GEOID00'))) %>%