## Not run: ------------------------------------
# library(tigris)
# library(sp)
#
# us_states <- unique(fips_codes$state)[1:51]
#
# continental_states <- us_states[!us_states %in% c("AK", "HI")]
# pumas_list <- lapply(continental_states, function(x) {
# pumas(state = x, cb = TRUE)
# })
#
# us_pumas <- rbind_tigris(pumas_list)
#
# plot(us_pumas)
## ---------------------------------------------
Run the code above in your browser using DataLab