fix #6

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: censable
 Title: Making Census Data More Usable
-Version: 0.0.5
+Version: 0.0.6
 Authors@R: 
     person(given = "Christopher T.",
            family = "Kenny",
@@ -18,7 +18,7 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3
 Suggests: 
     roxygen2,
     spelling,

NEWS.md

@@ -1,4 +1,9 @@
+# censable 0.0.6
+
+* Fixes an error where `build_dec()` and `build_acs()` fail when `geography = 'state'`.
+
 # 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

@@ -103,7 +103,9 @@ fetch_api_vars_ap <- function(year, group, race) {
 get_census_api <- function(geography, year, state, county = NULL,
                            variables, tab = 'dec/pl', show_call = FALSE) {
 
-  state <- match_fips(state)
+  if (!is.null(state)) {
+    state <- match_fips(state)
+  }
   rg <- format_regions(geography, state, county, decade = year - (year %% 10))
 
   out <- censusapi::getCensus(
@@ -137,11 +139,14 @@ format_regions <- function(geography, state, county, decade) {
   if (!geography %in% c('state', 'county')) {
     rgin <- paste0('state:', state, '+county:', col_var(ct))
     rg <- paste0(geography, ':*')
-  } else if (geography != state) {
+  } else if (geography != 'state') {
     rgin <- paste0('state:', state)
     rg <- paste0(geography, ':', col_var(ct))
   } else {
     rgin <- NULL
+    if (is.null(state)) {
+      state <- '*'
+    }
     rg <- paste0('state:', col_var(state))
   }
 

R/build_acs.R

@@ -68,7 +68,7 @@
 #' # uses the Census API
 #' tb <- build_acs(geography = 'tract', state = 'NY', county = 'Rockland', geometry = TRUE)
 #' }
-build_acs <- function(geography, state, county = NULL, geometry = TRUE, year = 2020,
+build_acs <- function(geography, state = NULL, county = NULL, geometry = TRUE, year = 2020,
                       survey = 'acs5', groups = 'all') {
   if (!isTRUE(groups[1] %in% c('all', 'pop', 'vap'))) {
     groups <- 'all'

R/build_dec.R

@@ -72,7 +72,7 @@
 #' # uses the Census API
 #' tb <- build_dec(geography = 'block', state = 'NY', county = 'Rockland', geometry = TRUE)
 #' }
-build_dec <- function(geography, state, county = NULL, geometry = TRUE,
+build_dec <- function(geography, state = NULL, county = NULL, geometry = TRUE,
                       year = 2020, groups = 'all') {
   if (!any(groups %in% c('all', 'pop', 'vap', 'all7', 'pop7', 'vap7') | startsWith(groups, 'ap:'))) {
     groups <- 'all'
@@ -110,7 +110,8 @@ build_dec <- function(geography, state, county = NULL, geometry = TRUE,
         groups == 'all' ~ c('pop', 'vap'),
         groups == 'all7' ~ c('pop7', 'vap7'),
         TRUE ~ groups
-      ) %>% unique()
+      ) %>%
+        unique()
 
       vars <- lapply(to_get, function(x) fetch_api_vars('dec', year, x))
     }