# NOT RUN {
lib_versions <- sf::sf_extSoftVersion()
lib_versions
if (lib_versions[3] >= "6.3.1") {
buff_sf <- geo_buffer(routes_fast_sf, dist = 50)
plot(buff_sf$geometry)
geo_buffer(routes_fast_sf$geometry, dist = 50)
# on legacy sp objects (not tested)
# buff_sp <- geo_buffer(routes_fast, width = 100)
# class(buff_sp)
# plot(buff_sp, col = "red")
}
# }
Run the code above in your browser using DataLab