ms_clip | R Documentation |
Removes portions of the target layer that fall outside the clipping layer or bounding box.
ms_clip(target, clip = NULL, bbox = NULL, remove_slivers = FALSE, ...)
target |
the target layer from which to remove portions. One of:
|
clip |
the clipping layer (polygon). One of:
|
bbox |
supply a bounding box instead of a clipping layer to extract from
the target layer. Supply as a numeric vector: |
remove_slivers |
Remove tiny sliver polygons created by clipping. (Default |
... |
Arguments passed on to
|
clipped target in the same class as the input target
if (rmapshaper:::v8_version() >= "6") {
library(geojsonsf, quietly = TRUE)
library(sf)
poly <- structure("{\"type\":\"FeatureCollection\",
\"features\":[{\"type\":\"Feature\",\"properties\":{},
\"geometry\":{\"type\":\"Polygon\",\"coordinates\":
[[[52.8658,-44.7219],[53.7702,-40.4873],[55.3204,-37.5579],
[56.2757,-37.917],[56.184,-40.6443],[61.0835,-40.7529],
[58.0202,-43.634],[61.6699,-45.0678],[62.737,-46.2841],
[55.7763,-46.2637],[54.9742,-49.1184],[52.799,-45.9386],
[52.0329,-49.5677],[50.1747,-52.1814],[49.0098,-52.3641],
[52.7068,-45.7639],[43.2278,-47.1908],[48.4755,-45.1388],
[50.327,-43.5207],[48.0804,-41.2784],[49.6307,-40.6159],
[52.8658,-44.7219]]]}}]}", class = c("geojson", "json"))
poly <- geojson_sf(poly)
plot(poly)
clip_poly <- structure('{
"type": "Feature",
"properties": {},
"geometry": {
"type": "Polygon",
"coordinates": [
[
[51, -40],
[55, -40],
[55, -45],
[51, -45],
[51, -40]
]
]
}
}', class = c("geojson", "json"))
clip_poly <- geojson_sf(clip_poly)
plot(clip_poly)
out <- ms_clip(poly, clip_poly)
plot(out, add = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.