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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.