Routing with Google

[Robinlovelace]

Here's a demo of using the route_google() function:

library(stplanr)
?route_google
from <- "university of leeds"
to <- "pedallers arms leeds"
r <- route(from, to, route_fun = cyclestreets::journey)
#> Most common output is sf
plot(r)
#> Warning: plotting the first 9 out of 37 attributes; use max.plot = 37 to plot
#> all

r_google1 <- route_google(from, to)
#> https://maps.googleapis.com/maps/api/directions/xml?origin=university of leeds&destination=pedallers arms leeds&mode=walking&alternatives=false&key=AIzaSyBjcAD0K9caBhqegMF1tCRnu2qCUEOqvDQ
plot(r_google1)
#> Warning: plotting the first 10 out of 11 attributes; use max.plot = 11 to plot
#> all
#> Warning in min(x): no non-missing arguments to min; returning Inf
#> Warning in max(x): no non-missing arguments to max; returning -Inf
#> Warning in min(x): no non-missing arguments to min; returning Inf
#> Warning in max(x): no non-missing arguments to max; returning -Inf
#> Warning in min.default(structure(NA_real_, class = c("POSIXct", "POSIXt": no
#> non-missing arguments to min; returning Inf
#> Warning in max.default(structure(NA_real_, class = c("POSIXct", "POSIXt": no
#> non-missing arguments to max; returning -Inf

^{Created on 2021-12-03 by the reprex package (v2.0.1)}