test/test_user_feedback.R

In GL-Li/rawcensus2010: Extract Decennial Census and American Community Survey Data

library(totalcensus)
library(data.table)
library(magrittr)

home_value <- read_acs5year(
    year = 2016,
    states = "RI",
    table_contents = "home_value = B25077_001",
    areas = c("Providence county, RI",
              "washington county, RI"),
    summary_level = "tract"
)
stopifnot(is.numeric(home_value$home_value))


# issue #1 ======
test_vars <- c( "B01001_001", "B19049_001", "B19301_001", "B19001_001", "B19101_001")

dc_test <- read_acs5year(
    year = 2016,
    states = c("VT", "DC"),
    table_contents = test_vars,
    summary_level = "tract"
) %>%
    .[, test_vars, with = FALSE]

stopifnot(all(sapply(dc_test, is.numeric)))

# issue #2, run without error ====
aaa <- read_acs5year(
    year = 2016,
    states = "MA",
    table_contents = "B01003_001",
    summary_level = "tract"
)

bbb <- read_acs1year(
    year = 2016,
    states = "MA",
    table_contents = "B01003_001",
    summary_level = "county"
)

ccc <-  read_acs5year(
    year = 2016,
    state = "MA",
    table_contents = c("B01003_001", "B00001_001", "B01002_002"),
    summary_level = "tract"
)

ddd <- read_decennial(
    year = 2010,
    states = "RI",
    table_contents = c("P0010001", "P0020001"),
    summary_level = "county"
)


# issue #3 ====
DC <- read_acs5year(year = 2016,
              states = "DC",
              table_contents = "B19013_001",
              summary_level = "tract")


# issue #4 =====
# fixed: file_28.csv was wrong.

NY_PCT12I <- read_decennial(
    year = 2010,
    states = "NY",
    table_contents = c("PCT012I001", "PCT012I009")
)


# issue #8 ====
library(purrr)

data("lookup_acs5year_2016")

test_vars <- c("B19013_001", "B19025_001", "B19037_001")

test1 <- totalcensus::read_acs5year(
    year = 2016,
    states = "DC",
    table_contents = test_vars,
    geo_headers = c("TRACT", "BLKGRP"),
    with_margin = TRUE,
    show_progress = TRUE
)

test2 <- purrr::map(
    .x = test_vars,
    .f = ~totalcensus::read_acs5year(
        year = 2016,
        states = "DC",
        table_contents = .x,
        geo_headers = c("TRACT"),
        with_margin = TRUE,
        show_progress = TRUE
    )
)