# NOT RUN {
lib_versions <- sf::sf_extSoftVersion()
lib_versions
# dont test due to issues with sp classes on some set-ups
if (lib_versions[3] >= "6.3.1") {
# l <- routes_fast[2:4, ] # to run with sp classes
l <- routes_fast_sf[2:4, ]
l_top_tail <- geo_toptail(l, 300)
l_top_tail
plot(sf::st_geometry(l_top_tail))
plot(sf::st_geometry(geo_toptail(l, 600)), lwd = 9, add = TRUE)
}
# }
Run the code above in your browser using DataLab