# NOT RUN {
# reflect several features
visualise(gtGeoms$polygon, linewidth = 3)
newPoly <- gt_reflect(obj = gtGeoms$polygon, angle = 45,
update = FALSE)
visualise(newPoly, linecol = "green", new = FALSE)
# reflect a single feature
visualise(gtGeoms$polygon, linewidth = 3)
newPoly <- gt_reflect(obj = gtGeoms$polygon, angle = 90, fid = 2,
update = FALSE)
visualise(newPoly, linecol = "green", new = FALSE)
# }
Run the code above in your browser using DataLab