powered by
toSeg(x)
SpatialLines*
SpatialPolygons*
SpatialLines
data(build) seg = toSeg(build[1, ]) plot(seg, col = sample(rainbow(length(seg)))) raster::text(rgeos::gCentroid(seg, byid = TRUE), 1:length(seg))
Run the code above in your browser using DataLab