Takes lines and removes the start and end point, to a distance determined by the user. Uses the geosphere::distHaversine function and requires coordinates in WGS84 (lng/lat).
toptailgs(l, toptail_dist, tail_dist = NULL)A SpatialLines object
The distance (in metres) to top the line by. Can be either a single value or a vector of the same length as the SpatialLines object. If tail_dist is missing, is used as the tail distance.
The distance (in metres) to tail the line by. Can be either a single value or a vector of the same length as the SpatialLines object.
Other lines: angle_diff,
geo_toptail, is_linepoint,
line2df, line_bearing,
line_match, line_midpoint,
line_sample, line_segment,
line_via, mats2line,
n_sample_length, n_vertices,
onewaygeo, onewayid,
points2line, toptail_buff,
update_line_geometry
# NOT RUN {
data("routes_fast")
rf <- routes_fast[2:3, ]
r_toptail <- toptailgs(rf, toptail_dist = 300)
plot(rf, lwd = 3)
plot(r_toptail, col = "red", add = TRUE)
plot(cents, add = TRUE)
# }
Run the code above in your browser using DataLab