# NOT RUN {
# translate several features
visualise(gtGeoms$polygon, linewidth = 3)
newPoly <- gt_translate(obj = gtGeoms$polygon, x = 5, y = c(-10, 5),
update = FALSE)
visualise(geom = newPoly, linecol = "green", new = FALSE)
# translate a single feature
visualise(gtGeoms$polygon, linewidth = 3)
newPoly <- gt_translate(obj = gtGeoms$polygon, x = 5, fid = 2,
update = FALSE)
visualise(geom = newPoly, linecol = "green", new = FALSE)
# }
Run the code above in your browser using DataLab