Nothing
context("rmesh")
test_that(
"Generate random meshcode", {
res <-
rmesh(1, mesh_size = 1.000)
expect_is(res, "meshcode")
expect_equal(mesh_size(res),
units::set_units(1, "km"))
expect_error(rmesh(1, mesh_size = 0.5))
})
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.