See prior posts for a list of variables
write.csv(get_acs(
geography = "block group",
variables = "C02003_001",
state = "PA",
year = 2020
), "C:\\Users\\gary\\pa-justice-maps-sheets\\scraping\\C02003_001.csv", row.names=FALSE)
Or as a function of the variable name,
download_data <- function(varname) {
write.csv(get_acs(
geography = "block group",
variables = varname,
state = "PA",
year = 2020
), paste("C:\\Users\\gary\\pa-justice-maps-sheets\\scraping\\", varname, ".csv"), row.names=FALSE)
}