tests/testthat/test-acs_5yr_selection.R

In josesamos/geogenr: Generator from American Community Survey Geodatabases

test_that("get_available_areas()", {
  res <-
    c(
      `X01 Age And Sex` = "X01_AGE_AND_SEX",
      `X02 Race` = "X02_RACE",
      `X03 Hispanic Or Latino Origin` = "X03_HISPANIC_OR_LATINO_ORIGIN",
      `X04 Ancestry` = "X04_ANCESTRY",
      `X05 Foreign Born Citizenship` = "X05_FOREIGN_BORN_CITIZENSHIP",
      `X06 Place Of Birth` = "X06_PLACE_OF_BIRTH",
      `X07 Migration` = "X07_MIGRATION",
      `X08 Commuting` = "X08_COMMUTING",
      `X09 Children Household Relationship` = "X09_CHILDREN_HOUSEHOLD_RELATIONSHIP",
      `X10 Grandparents Grandchildren` = "X10_GRANDPARENTS_GRANDCHILDREN",
      `X11 Household Family Subfamilies` = "X11_HOUSEHOLD_FAMILY_SUBFAMILIES",
      `X12 Marital Status And History` = "X12_MARITAL_STATUS_AND_HISTORY",
      `X13 Fertility` = "X13_FERTILITY",
      `X14 School Enrollment` = "X14_SCHOOL_ENROLLMENT",
      `X15 Educational Attainment` = "X15_EDUCATIONAL_ATTAINMENT",
      `X16 Language Spoken At Home` = "X16_LANGUAGE_SPOKEN_AT_HOME",
      `X17 Poverty` = "X17_POVERTY",
      `X18 Disability` = "X18_DISABILITY",
      `X19 Income` = "X19_INCOME",
      `X20 Earnings` = "X20_EARNINGS",
      `X21 Veteran Status` = "X21_VETERAN_STATUS",
      `X22 Food Stamps` = "X22_FOOD_STAMPS",
      `X23 Employment Status` = "X23_EMPLOYMENT_STATUS",
      `X24 Industry Occupation` = "X24_INDUSTRY_OCCUPATION",
      `X25 Housing Characteristics` = "X25_HOUSING_CHARACTERISTICS",
      `X26 Group Quarters` = "X26_GROUP_QUARTERS",
      `X27 Health Insurance` = "X27_HEALTH_INSURANCE",
      `X28 Computer And Internet Use` = "X28_COMPUTER_AND_INTERNET_USE",
      `X99 Imputation` = "X99_IMPUTATION"
    )

  dir <- tempdir()
  sub_dir <- snakecase::to_snake_case(paste0(Sys.time()))
  dir.create(file.path(dir, sub_dir))
  dir <- paste0(dir, '/', sub_dir)

  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()

  expect_equal({
    areas <- ac |>
      get_available_areas()
  }, {
    c("Alaska Native Regional Corporation")
  })

  expect_equal({
    years <- ac |>
      get_available_area_years(area = "Alaska Native Regional Corporation")
  }, {
    c("2020", "2021")
  })

  expect_equal({
    topics <- ac |>
      get_available_area_topics("Alaska Native Regional Corporation",
                                2021)
  }, {
    names(res)
  })

  expect_equal({
    topics <- ac |>
      get_available_area_topics("Alaska Native Regional Corporation")
  }, {
    names(res)
  })

  expect_equal({
    act <- ac |>
      as_acs_5yr_topic("Alaska Native Regional Corporation",
                       2021,
                       "X01 Age And Sex")
    names <- names(act$files)
    act$files <- basename(act$files)
    names(act$files) <- names
    act$data <- NULL
    act$geo <- NULL
    act
  }, {
    structure(list(
      area = c(`Alaska Native Regional Corporation` = "ANRC"),
      years = 2021,
      topic = c(`X01 Age And Sex` = "X01_AGE_AND_SEX"),
      area_topics = res,
      files = c(`2021` = "ACS_2021_5YR_ANRC.gdb")
    ),
    class = "acs_5yr_topic")
  })

  expect_equal({
    act <- ac |>
      as_acs_5yr_topic("Alaska Native Regional Corporation",
                       topic = "X01 Age And Sex")
    names <- names(act$files)
    act$files <- basename(act$files)
    names(act$files) <- names
    act$data <- NULL
    act$geo <- NULL
    act
  }, {
    structure(list(
      area = c(`Alaska Native Regional Corporation` = "ANRC"),
      years = c("2020", "2021"),
      topic = c(`X01 Age And Sex` = "X01_AGE_AND_SEX"),
      area_topics = res,
      files = c(`2020` = "ACS_2020_5YR_ANRC.gdb",
                `2021` = "ACS_2021_5YR_ANRC.gdb")
    ),
    class = "acs_5yr_topic")
  })
})