From 53a45a51a63b0faf5702491ed860227e801d992b Mon Sep 17 00:00:00 2001
From: Christopher Kenny <ctk44@cornell.edu>
Date: Mon, 14 Aug 2023 22:16:53 -0400
Subject: [PATCH] fix column naming for 2000 blocks

---
 NEWS.md | 6 ++++++
 R/api.R | 1 +
 2 files changed, 7 insertions(+)

diff --git a/NEWS.md b/NEWS.md
index 09e9d75..17e34ea 100644
--- a/NEWS.md
+++ b/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.
diff --git a/R/api.R b/R/api.R
index 32bf431..4e882a7 100644
--- a/R/api.R
+++ b/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)
 
 }