# NOT RUN {
f <- system.file("ex/lux.shp", package="terra")
v <- vect(f)
w <- spin(v, 180)
plot(v)
lines(w, col="red")
# lower-right corner as center
e <- as.vector(ext(v))
x <- spin(v, 45, e[1], e[3])
# }
Run the code above in your browser using DataLab