test/test_new_data_on_Rhode_Island.R

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

# test the newly added survey data using RI. Make sure no error in reading.

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

# acs 5-year ==================================================================
# randomly select 100 varaibles from ACS5 year 2021
refs <- search_tablecontents("acs5", view = FALSE) %>%
    .[!is.na(acs5_2021), reference] %>%
    sample(100)

for (ref in refs){
    aaa = read_acs5year(2021, 'RI', table_contents = ref)
    cat("\n=== output ===\n")
    print(dim(aaa))
}