# NOT RUN {
par(mfrow = c(1, 2))
plot(spatialCollEx, col = "blue", main = "Spatial Collections Object")
poly_only <- keep_poly(spatialCollEx)
plot(poly_only, col = "blue", main = "Spatial Polygon Only")
# }
Run the code above in your browser using DataLab