# NOT RUN {
feed_path <- system.file("extdata", "sample-feed-fixed.zip", package = "tidytransit")
g <- read_gtfs(feed_path, local=TRUE)
# Consider precalculating date_service_table for the feed.
g <- set_date_service_table(g)
# filter the sample feed
stop_times <- filter_stop_times(g, "2007-01-06", "06:00:00", "08:00:00")
# }
Run the code above in your browser using DataLab