test_that("getmask", {
data(Paracou6_2016)
data(DTMParacou)
mask <- getmask(Paracou6_2016, DTMParacou)
# See issue #67 for possible error
expect_true(inherits(mask, "SpatialPolygons"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.