if (FALSE) {
origin <- c(-122.201399, 47.608678)
destination <- c(-122.201669, 47.615076)
waypoints <- c(-122.20687, 47.612002)
params <- list(
optimizeRoute = "fastestWithTraffic",
routeOutputOptions = "routePath",
maxRouteCount = 3,
travelMode = "driving"
)
response <- req_route_directions(origin, destination, waypoints, params)
}
Run the code above in your browser using DataLab