fix column naming for 2000 blocks

NEWS.md

@@ -1,4 +1,10 @@
+
+# censable 0.0.5
+
+* Resolves an issue where block-level requests with geometry would fail for 2000 data.
+
 # censable 0.0.4
+
 * Internal changes to `build_dec()` and `build_acs()` to make variable fetching cleaner.
 * Adds new `groups` to `build_dec()` for 7 category races with no Hispanic category: `'all7'`, `'pop7'`, and `'vap7'`.
 * Allows any part race from `build_dec()` with `'ap:race'` for all race categories.

R/api.R

@@ -165,6 +165,7 @@ get_geometry <- function(geography, ...) {
   do.call(fn, args) %>%
     dplyr::rename_with(.fn = function(x) stringr::str_sub(x, end = -3),
                        .cols = dplyr::any_of(c('GEOID20', 'GEOID10', 'GEOID00'))) %>%
+    dplyr::rename_with(.fn = function(x) stringr::str_replace(x, 'BLKIDFP00', 'GEOID')) %>%
     dplyr::select(.data$GEOID, .data$geometry)
 
 }