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