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