lib_versions <- sf::sf_extSoftVersion()
lib_versions
# fails on some systems (with early versions of PROJ)
if (lib_versions[3] >= "6.3.1") {
sl <- routes_fast_sf[2:4, ]
rsec <- gsection(sl)
length(rsec) # sections
plot(rsec, col = seq(length(rsec)))
rsec <- gsection(sl, buff_dist = 50)
length(rsec) # 4 features: issue
plot(rsec, col = seq(length(rsec)))
}
Run the code above in your browser using DataLab