# 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("London Eye", "Westminster", vehicle = "foot")
r3 <- route_graphhopper("London Eye", "Westminster", 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