routes | R Documentation |
Returns routing information between source and destinations.
routes(locations, departure_searches = NULL, arrival_searches = NULL)
locations |
One or more objects created by |
departure_searches |
One or more objects created by |
arrival_searches |
One or more objects created by |
See https://traveltime.com/docs/api/reference/routes for details
API response parsed as a list and as a raw json
## Not run: locations <- c( make_location( id = 'London center', coords = list(lat = 51.508930, lng = -0.131387)), make_location( id = 'Hyde Park', coords = list(lat = 51.508824, lng = -0.167093)), make_location( id = 'ZSL London Zoo', coords = list(lat = 51.536067, lng = -0.153596)) ) departure_search <- make_search(id = "departure search example", departure_location_id = "London center", arrival_location_ids = list("Hyde Park", "ZSL London Zoo"), departure_time = strftime(as.POSIXlt(Sys.time(), "UTC"), "%Y-%m-%dT%H:%M:%SZ"), travel_time = 1800, transportation = list(type = "driving"), properties = list("travel_time", "distance", "route")) arrival_search <- make_search(id = "arrival search example", arrival_location_id = "London center", departure_location_ids = list("Hyde Park", "ZSL London Zoo"), arrival_time = strftime(as.POSIXlt(Sys.time(), "UTC"), "%Y-%m-%dT%H:%M:%SZ"), travel_time = 1800, transportation = list(type = "public_transport"), properties = list('travel_time', "distance", "route", "fares"), range = list(enabled = T, width = 1800, max_results = 1)) result <- routes( departure_searches = departure_search, arrival_searches = arrival_search, locations = locations ) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.