crop_to_land <- function(shp, land) {
suppressWarnings({
if (!(length(land) == 1)) land <- st_union(st_combine(land))
st_intersection(shp, land)
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.