Nothing
test_that('breakdown_geoid', {
ex <- mt_county %>% breakdown_geoid()
expect_true(all(c('state', 'county') %in% names(ex)))
})
test_that('construct_geoid', {
ex <- mt_county %>%
breakdown_geoid() %>%
construct_geoid()
expect_true(all(c('state', 'county') %in% names(ex)))
expect_identical(ex$GEOID, mt_county$GEOID)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.