filter_stops | R Documentation |
Get a set of stops for a given set of service ids and route ids
filter_stops(gtfs_obj, service_ids, route_ids)
gtfs_obj |
gtfs feed (tidygtfs object) |
service_ids |
the service for which to get stops |
route_ids |
the route_ids for which to get stops |
stops table for a given service or route
library(dplyr)
local_gtfs_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
nyc <- read_gtfs(local_gtfs_path)
select_service_id <- filter(nyc$calendar, monday==1) %>% pull(service_id)
select_route_id <- sample_n(nyc$routes, 1) %>% pull(route_id)
filtered_stops_df <- filter_stops(nyc, select_service_id, select_route_id)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.