# NOT RUN {
# from <- c(-0.12, 51.5)
# to <- c(-0.14, 51.5)
# r1 <- route_graphhopper(from = from, to = to, silent = FALSE)
# r2 <- route_graphhopper(from = from, to = to, silent = FALSE, vehicle = "foot")
# r3 <- route_graphhopper(from = from, to = to, silent = FALSE, vehicle = "car")
# plot(r1)
# plot(r2, add = TRUE, col = "blue") # compare routes
# plot(r3, add = TRUE, col = "red")
# }
Run the code above in your browser using DataLab