powered by
get.poly(x)
sids <- maptools::readShapePoly(system.file("shapes/sids.shp", package="maptools") ) plot(poly <- get.poly(sids))
Run the code above in your browser using DataLab