Function to calculate the shortest travel times from a stop (give by
from_stop_name) to all other
stops of a feed.
filtered_stop_times needs to be created before with
travel_times(filtered_stop_times, from_stop_name, departure_time_range = 3600, max_transfers = NULL, max_departure_time = NULL)
stop_times data.table (with transfers and stops tables as
attributes) created with
stop name from which travel times should be calculated. A vector with multiple names is accepted.
All departures within this range in seconds after the first
The maximimum number of transfers
Either set this parameter or
A table with travel times to all stops reachable from
from_stop_name and their
corresponding journey departure and arrival times.
This function allows easier access to
raptor by using stop names instead of ids and
returning shortest travel times by default.
nyc_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit") nyc <- read_gtfs(nyc_path, local=TRUE) # Use journeys departing after 7 AM with arrival time before 9 AM on 26th June stop_times <- filter_stop_times(nyc, "2018-06-26", 7*3600, 9*3600) tts <- travel_times(stop_times, "34 St - Herald Sq") tts <- tts %>% filter(travel_time <= 3600) # travel time to Queensboro Plaza is 810 seconds, 13:30 minutes tts %>% filter(stop_name == "Queensboro Plaza") %>% dplyr::pull(travel_time) %>% hms::hms()#> 00:13:30# plot a simple map showing travel times to all reachable stops # this can be expanded to isochron maps library(ggplot2) ggplot(tts) + geom_point(aes(x=stop_lon, y=stop_lat, color = travel_time))