Nothing
test_that("define() produces the expected output", {
expected <- c(
"* `isos` (character): Countries in region, defined by iso code.",
"* `region` (character): Benchmark region name.",
"* `source` (character): Source publication from which the regions are defined."
)
actual <- unclass(define("region_isos"))
expect_equal(actual, expected)
})
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.