if (FALSE) {
local_gtfs_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
gtfs <- read_gtfs(local_gtfs_path)
gtfs <- filter_feed_by_date(gtfs, "2018-06-30")
write_gtfs(gtfs, "feed_filtered.zip")
}
Run the code above in your browser using DataLab