# Examples must be run on single thread only:
nthr_dt <- data.table::setDTthreads (1)
nthr_omp <- Sys.getenv ("OMP_THREAD_LIMIT")
Sys.setenv ("OMP_THREAD_LIMIT" = 1L)
berlin_gtfs_to_zip () # Write sample feed from Berlin, Germany to tempdir
f <- file.path (tempdir (), "vbb.zip") # name of feed
gtfs <- extract_gtfs (f)
from <- "Innsbrucker Platz" # U-bahn station, not "S"
to <- "Alexanderplatz"
start_time <- 12 * 3600 + 120 # 12:02
route <- gtfs_route (gtfs, from = from, to = to, start_time = start_time)
# Specify day of week
route <- gtfs_route (
gtfs,
from = from,
to = to,
start_time = start_time,
day = "Sunday"
)
# specify travel by "U" = underground only
route <- gtfs_route (
gtfs,
from = from,
to = to,
start_time = start_time,
day = "Sunday",
route_pattern = "^U"
)
# specify travel by "S" = street-level only (not underground)
route <- gtfs_route (
gtfs,
from = from,
to = to,
start_time = start_time,
day = "Sunday",
route_pattern = "^S"
)
# Route queries are generally faster if the GTFS data are pre-processed with
# `gtfs_timetable()`:
gt <- gtfs_timetable (gtfs, day = "Sunday", route_pattern = "^S")
route <- gtfs_route (gt, from = from, to = to, start_time = start_time)
data.table::setDTthreads (nthr_dt)
Sys.setenv ("OMP_THREAD_LIMIT" = nthr_omp)
Run the code above in your browser using DataLab