Nothing
test_that("Cast geo", {
dt <- readRDS(system.file("test-data", "cast_2010.rds", package = "norgeo"))
dt[, name := NULL]
expect_equal(cast_geo(2010, names = FALSE), dt)
})
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.