# \donttest{
dir <- tempdir()
source_dir <- system.file("extdata/acs_5yr", package = "geogenr")
files <- list.files(source_dir, "*.zip", full.names = TRUE)
file.copy(from = files, to = dir, overwrite = TRUE)
ac <- acs_5yr(dir)
files <- ac |>
unzip_files()
anrc_2021_x01 <- ac |>
as_acs_5yr_topic("Alaska Native Regional Corporation",
2021,
"X01 Age And Sex")
anrc_2021_2022_x01_x07 <- ac |>
as_acs_5yr_topic("Alaska Native Regional Corporation",
topic = c("X01 Age And Sex", "X07 Migration"))
# }
Run the code above in your browser using DataLab