throw error when geometry is requested for congressional districts in…

… 2020 pending new TIGER release
walkerke · Sep 6, 2023 · 0c8e96e · 0c8e96e
1 parent 01945d4
commit 0c8e96e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/census.R b/R/census.R
@@ -444,6 +444,10 @@ get_decennial <- function(geography,
       if (geography == "urban area" && year == 2020) {
         geom <- try(suppressMessages(use_tigris(geography = geography, year = year,
                                                 state = state, county = county, criteria = "2020", ...)))
+      } else if (sumfile == "cd118") {
+        stop("Geometry is not yet available for this sumfile, but will be in mid-September 2023.")
+        # try(suppressMessages(use_tigris(geography = geography, year = 2022,
+        #                                 state = state, county = county, ...)))
       } else {
         geom <- try(suppressMessages(use_tigris(geography = geography, year = year,
                                                 state = state, county = county, ...)))