# 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)
summary (g)
g <- gtfs_timetable (g)
summary (g) # also summarizes additional timetable information
data.table::setDTthreads (nthr)
Run the code above in your browser using DataLab