w <- vect("POLYGON ((0 -5, 10 0, 10 -10, 0 -5))")
is.valid(w)
w <- vect("POLYGON ((0 -5, 10 0, 10 -10, 4 -2, 0 -5))")
is.valid(w)
is.valid(w, TRUE)
v1 <- makeValid(w)
is.valid(v1)
v2 <- makeValid(w, buffer=TRUE)
plot(disagg(v1), col=c("light blue", "gray"))
# valid but incomplete
lines(v2, col="red", lwd=3)
plot(w)
points(cbind(4.54, -2.72), cex=2, col="red")
e <- ext(0, 1, 0, 1)
is.valid(e)
ee <- ext(0, 0, 0, 0)
is.valid(ee)
Run the code above in your browser using DataLab