# NOT RUN {
# from <- matrix(stplanr::geo_code("pedallers arms leeds"), ncol = 2)
from <-c(-1.5327711, 53.8006988)
# to <- matrix(stplanr::geo_code("gzing"), ncol = 2)
to <- c(-1.527937, 53.8044309)
sln <- SpatialLinesNetwork(osm_net_example)
# }
# NOT RUN {
r <- route_local(sln, from, to)
plot(r)
# todo: next code chunk is not currently working:
r2 <- route_local(sln = sln, cents_sf[5, ], cents_sf[6, ])
plot(r2)
r_many <- line2route(flowlines_sf[2:9, ], route_local, sln = sln)
plot(cents)
plot(sln@sl, add = TRUE)
plot(r_many, add = TRUE)
# }
Run the code above in your browser using DataLab