Nothing
context("mr_place_relations")
test_that("mr_place_relations works", {
skip_on_cran()
res <- mr_place_relations(18550)
expect_is(res, "data.frame")
expect_true(NROW(res) > 0)
expect_is(res$preferredGazetteerName, "character")
expect_true(class(res$MRGID) %in% c("numeric", "integer"))
})
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.