fix #570

DESCRIPTION

@@ -6,7 +6,7 @@ Authors@R: c(
     person(given = "Kyle", family = "Walker", email="[email protected]", role=c("aut", "cre")),
     person(given = "Matt", family = "Herman", email = "[email protected]", role = "aut"),
     person(given = "Kris", family = "Eberwein", email = "[email protected]", role = "ctb"))
-Date: 2024-09-19
+Date: 2024-09-20
 URL: https://walker-data.com/tidycensus/
 BugReports: https://github.com/walkerke/tidycensus/issues
 Description: An integrated R interface to several United States Census Bureau 

R/helpers.R

@@ -212,8 +212,8 @@ use_tigris <- function(geography, year, cb = TRUE, resolution = "500k",
 
   } else if (geography == "metropolitan statistical area/micropolitan statistical area" || geography == "cbsa") {
 
-    # 2022 CBSA files for CB not yet available
-    if (cb && year == 2022) {
+    # 2022 CBSA files not available
+    if (year == 2022) {
       year <- 2021
     }
 
@@ -314,7 +314,12 @@ use_tigris <- function(geography, year, cb = TRUE, resolution = "500k",
 
   } else if (geography == "combined statistical area") {
 
-    csa <- combined_statistical_areas(cb = cb, class = "sf", year = year, ...)
+    # CSA file not published for '22, so we need '21 geometries
+    if (year == 2022) {
+      csa <- combined_statistical_areas(cb = cb, class = "sf", year = 2021, ...)
+    } else {
+      csa <- combined_statistical_areas(cb = cb, class = "sf", year = year, ...)
+    }
 
     return(csa)