# NOT RUN {
# 1. create points programmatically
coords <- data.frame(x = c(40, 70, 70, 50),
y = c(40, 40, 60, 70))
# if no window is set, the bounding box will be set as window
(aGeom <- gs_point(anchor = coords))
# the vertices are plottet relative to the window
window <- data.frame(x = c(0, 80),
y = c(0, 80))
points <- gs_point(anchor = coords, window = window)
visualise(points, linecol = "green")
# when a geom is used in 'anchor', its properties are passed on
aGeom <- setWindow(x = aGeom, to = window)
points <- gs_point(anchor = aGeom)
visualise(points)
# 2. sketch two points
if(dev.interactive()){
points <- gs_point(vertices = 2)
visualise(points, linecol = "green", pointsymbol = 5, new = FALSE)
}
# }
Run the code above in your browser using DataLab