# NOT RUN {
{
l <- flowlines_sf[2:4, ]
p <- destinations_sf
lv <- line_via(l, p)
# }
# NOT RUN {
library(mapview)
mapview(lv) +
mapview(lv$leg_orig, col = "red")
# }
# NOT RUN {
library(sf)
plot(lv[3], lwd = 9, reset = FALSE)
plot(lv$leg_orig, col = "red", lwd = 5, add = TRUE)
plot(lv$leg_via, col = "black", add = TRUE)
plot(lv$leg_dest, col = "green", lwd = 5, add = TRUE)
}
# }
Run the code above in your browser using DataLab