Nothing
library(sf)
library(sp)
mtq <- st_read(system.file("gpkg/mtq.gpkg", package="cartography"), quiet = TRUE)
res <- getBorders(x = mtq)
expect_error(res2 <- getBorders(spdf = as(mtq, "Spatial"), spdfid = "INSEE_COM"))
# res2 <- getBorders(spdf = as(mtq, "Spatial"), spdfid = "INSEE_COM")
res3 <- getBorders(x = as(mtq, "Spatial"))
expect_equal(nrow(res), 142)
expect_equal(nrow(res3), 142)
expect_true(methods::is(st_geometry(res), "sfc_MULTILINESTRING"))
expect_true(methods::is(st_geometry(res3), "sfc_MULTILINESTRING"))
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.