# Examples must be run on single thread only:
nthr <- data.table::setDTthreads (1)
berlin_gtfs_to_zip ()
f <- file.path (tempdir (), "vbb.zip")
g <- extract_gtfs (f, quiet = TRUE)
g <- gtfs_transfer_table (g, d_limit = 200)
# g$transfers then has fewer rows than original, because original transfer
# table contains duplicated rows.
data.table::setDTthreads (nthr)
Run the code above in your browser using DataLab