# NOT RUN {
l <- routes_fast[2:4, ]
lpoints <- line_to_points(l)
lpoints2 <- line2pointsn(l)
plot(lpoints, pch = lpoints$id, cex = lpoints$id)
points(lpoints2, add = TRUE)
line_to_points(routes_fast_sf[2:4, ])
# }
Run the code above in your browser using DataLab