context("Check loading of the field crowns yields a spatial object")
test_that("Load ground truth", {
n <- list_field_crowns()
expect_gt(length(n),0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.