tests/testthat/test_get_data.R

testthat::test_that('Test that kinder data is unique', {
  
  df <- get.kinder_neighborhood_tract_xwalk()

  testthat::expect_equal(length(unique(df$anchor_tract)), nrow(df))
  
})
Texas-Policy-Lab/texas_child_care_deserts documentation built on Dec. 18, 2021, 4:07 p.m.