powered by
to_wkt(x)
library("rgeos") wkt <- "POLYGON((-180 -20, -140 55, 10 0, -140 -60, -180 -20))" poly <- readWKT(wkt) polys <- chop(x = poly) to_wkt(polys) to_wkt(polys)[[2]]
Run the code above in your browser using DataLab