Estoy buscando automatizar el proceso de descarga de datos del Censo de todos los grupos de bloques de los EE. UU. Utilizando el paquete tidycensus. Hay instrucciones del desarrollador para descargar todos los tratados dentro delNOSOTROS, sin embargo, no se puede acceder a los grupos de bloques usando el mismométodo.

Aquí está mi código actual que no funciona

library(tidyverse)
library(tidycensus)
census_api_key("key here")

# create lists of state and county codes

data("fips_codes")
temp <- data.frame(state = as.character(fips_codes$state_code),
                   county = fips_codes$county_code,
                   stringsAsFactors = F)
temp <- aggregate(county~state, temp, c)
state <- temp$state
coun <- temp$county

# use map2_df to loop through the files, similar to the "tract" data pull

home <- map2_df(state, coun, function(x,y) {
get_acs(geography = "block group", variables = "B25038_001", #random var
state = x,county = y)
  })

El error resultante es

No encoding supplied: defaulting to UTF-8.
Error: parse error: premature EOF

                     (right here) ------^

Un enfoque similar para convertir los condados dentro de cada estado en una lista tampoco funciona

temp <- aggregate(county~state, temp, c)
state <- temp$state
coun <- temp$county

df<- map2_df(state, coun, function(x,y) {
    get_acs(geography = "block group", variables = "B25038_001", 
            state = x,county = y)
  })

Error: Result 1 is not a length 1 atomic vector es regresado.

¿Alguien tiene conocimiento de cómo se podría completar esto? Es más que probable que no esté utilizando las funciones o la sintaxis correctamente, y tampoco soy muy bueno con los bucles. Cualquier ayuda sería apreciada.