data(routes_fast)
shp <- routes_fast[1,]
rfs10 <- mapshape(shp)
rfs5 <- mapshape(shp, percent = 5)
rfs1 <- mapshape(shp, percent = 1)
plot(shp)
plot(rfs10, add = TRUE, col ="red")
plot(rfs5, add = TRUE, col ="blue")
plot(rfs1, add = TRUE, col = "grey")
# snap the lines to the nearest interval
rfs_int <- mapshape(shp, ms_options = "snap-interval=0.001")
plot(shp)
plot(rfs_int, add = TRUE)
Run the code above in your browser using DataLab