# read a gtfs.zip to memory
poa <- read_gtfs(system.file("extdata/poa.zip", package = "gtfs2gps")) |>
gtfstools::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