test_that("tm_borders work", {
# Borders only
map <- tm_shape(World) + tm_borders()
map
expect_equal(map[[1]]$shp_name, "World")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.