test_that("eppexist works", {
set.seed(1)
exist <- eppexist(pop = pop_epp,
centers = centers_epp,
crs = sp::CRS("+init=epsg:32721"))
expect_equal(class(exist), "list")
expect_equal(length(exist), 4)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.