# NOT RUN {
# the original object
coords <- data.frame(x = c(30, 60, 60, 40, 10, 40, 20),
y = c(40, 40, 60, 70, 10, 20, 40),
fid = c(1, 1, 1, 1, 2, 2, 2))
window <- data.frame(x = c(-80, 80),
y = c(-80, 80))
aGeom <- gs_polygon(anchor = coords, window = window)
# reflect several geoms
visualise(geom = gt_reflect(geom = aGeom, angle = 30))
# reflect a single geom
visualise(geom = gt_reflect(geom = aGeom, angle = -45, fid = 1))
# }
Run the code above in your browser using DataLab