Get a set of stops for a given set of service ids and route ids

filter_stops(gtfs_obj, service_ids, route_ids)

Arguments

gtfs_obj

as read by read_gtfs()

service_ids

the service for which to get stops

route_ids

the route_ids for which to get stops

Value

stops for a given service

Examples

local_gtfs_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "tidytransit") nyc <- read_gtfs(local_gtfs_path,local=TRUE) select_service_id <- filter(nyc$calendar, monday==1) %>% pull(service_id)
#> Error in pull(., service_id): could not find function "pull"
select_route_id <- sample_n(nyc$routes, 1) %>% pull(route_id)
#> Error in sample_n(nyc$routes, 1): could not find function "sample_n"
filtered_stops_df <- filter_stops(nyc, select_service_id, select_route_id)
#> Error in .data$service_id %in% service_ids: object 'select_service_id' not found