Clip the first and last n metres of SpatialLines
Takes lines and removes the start and end point, to a distance determined by the user.
geo_toptail(l, toptail_dist, ...)
| l | A SpatialLines object | 
| toptail_dist | The distance (in metres) to top and tail the line by. Can either be a single value or a vector of the same length as the SpatialLines object. | 
| ... | Arguments passed to rgeos::gBuffer() | 
Note: toptailgs() is around 10 times faster, but only works
on data with geographic CRS's due to its reliance on the geosphere
package.
Other lines: 
angle_diff(),
is_linepoint(),
line2df(),
line2points(),
line_bearing(),
line_breakup(),
line_match(),
line_midpoint(),
line_sample(),
line_segment(),
line_via(),
mats2line(),
n_sample_length(),
n_vertices(),
onewaygeo(),
points2line(),
toptail_buff(),
toptailgs(),
update_line_geometry()
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)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.