View source: R/transform_rotate.R
lawn_transform_rotate | R Documentation |
Rotates any geojson Feature or Geometry of a specified angle, around its centroid or a given pivot point
lawn_transform_rotate(x, angle, pivot = c(0, 0), mutate = FALSE, lint = FALSE)
x |
a feature |
angle |
(integer/numeric) number of rotation (along the vertical axis), from North in decimal degrees, negative clockwise |
pivot |
(integer/numeric) point around which the rotation will be
performed (optional, default |
mutate |
(logical) allows GeoJSON input to be mutated (significant
performance increase if true) (optional). Default: |
lint |
(logical) Lint or not. Uses geojsonhint. Takes up increasing
time as the object to get linted increases in size, so probably use by
default for small objects, but not for large if you know they are good
geojson objects. Default: |
a rotated data-Feature
all rotations follow the right-hand rule
x <- '{ "type": "Feature", "properties": {}, "geometry": { "type": "Polygon", "coordinates": [ [ [ 0, 29 ], [ 3.5, 29 ], [ 2.5, 32 ], [ 0, 29 ] ] ] } }' lawn_transform_rotate(x, angle = 100, pivot = c(15, 15)) lawn_transform_rotate(x, angle = 100) lawn_transform_rotate(x, angle = 100, mutate = TRUE) ## Not run: view(lawn_featurecollection(x)) view(lawn_featurecollection(lawn_transform_rotate(x, angle = 100))) view(lawn_featurecollection( lawn_transform_rotate(x, angle = 100, pivot = c(15, 15)) )) view(lawn_featurecollection( lawn_transform_rotate(x, angle = 150, pivot = c(15, 15)) )) view(lawn_featurecollection( lawn_transform_rotate(x, angle = 300, pivot = c(0, 4)) )) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.