tests/testthat/test-format_legacy_data.R

options("piggyback.verbose" = FALSE)
options("wru_data_wd" = TRUE)

test_that("legacy data returns expected geo groups",{
  skip_on_cran()
  de <- format_legacy_data(PL94171::pl_url('DE', 2020), state = "DE")
  
  expect_named(de, c("county", "tract", "blockGroup", "block"))
})

Try the wru package in your browser

Any scripts or data that you put into this service are public.

wru documentation built on May 29, 2024, 9:46 a.m.