# NOT RUN {
library(dplyr)
# read a gtfs.zip to memory
poa <- read_gtfs(system.file("extdata/poa.zip", package = "gtfs2gps")) %>%
filter_by_shape_id("T2-1") %>%
filter_single_trip()
# write GTFS data into a zip file
write_gtfs(poa, paste0(tempdir(), "/mypoa.zip"))
# }
Run the code above in your browser using DataLab