tests/testthat/test-long_to_wide.R

In RcensusPkg: Easily Access US Census Bureau Survey and Geographic Data

# Note: Test requires valid Census Bureau API key to be
#  assigned to "CENSUS_KEY" via usethis::edit_r_environ()

test_that("long_to_wide() namespaces", {
  expect_true(requireNamespace("data.table", quietly = TRUE))
})

test_that("long_to_wide()", {
  testthat::skip_if(Sys.getenv("CENSUS_KEY") == "", message = "Census Bureau API key required")
  expect_snapshot({
    B19001_1yr_long_dt <- RcensusPkg::get_vintage_data(
      dataset = "acs/acs1",
      vintage = 2016,
      group = "B19001",
      region = "state",
      wide_to_long = TRUE
    )

    head(RcensusPkg::long_to_wide(
      dt = B19001_1yr_long_dt,
      parameter_col = "variable",
      value_col = c("estimate", "moe")
    ))
  })
})