SkillAgentSearch skills...

Gtfsrouter

Routing and analysis engine for GTFS (General Transit Feed Specification) data

Install / Use

npx skills add UrbanAnalyst/gtfsrouter

Installs into whichever agent you are using.

About this skill

Quality Score

0/100

Supported Platforms

Universal

README

gtfsrouter <a href='https://UrbanAnalyst.github.io/gtfsrouter/'><img src='man/figures/logo.png' align="right" height=210 width=182/></a>

R build
status codecov Project Status:
Active CRAN_Status_Badge CRAN
Downloads

R package for public transport routing with GTFS (General Transit Feed Specification) data.

Installation

You can install latest stable version of gtfsrouter from CRAN with:

install.packages ("gtfsrouter")

Alternatively, the current development version can be installed using any of the following options:

# install.packages("remotes")
remotes::install_git ("https://git.sr.ht/~mpadge/gtfsrouter")
remotes::install_git ("https://codeberg.org/UrbanAnalyst/gtfsrouter")
remotes::install_bitbucket ("urbananalyst/gtfsrouter")
remotes::install_gitlab ("UrbanAnalyst/gtfsrouter")
remotes::install_github ("UrbanAnalyst/gtfsrouter")

To load the package and check the version:

library (gtfsrouter)
packageVersion ("gtfsrouter")

## [1] '0.1.4.8'

Main functions

The main functions can be demonstrated with sample data included with the package from Berlin (the “Verkehrverbund Berlin Brandenburg”, or VBB). GTFS data are always stored as .zip files, and these sample data can be written to the temporary directory (tempdir()) of the current R session with the function berlin_gtfs_to_zip().

filename <- berlin_gtfs_to_zip ()
print (filename)

## /tmp/RtmpTnlacm/vbb.zip

For normal package use, filename will specify the name of a local GTFS .zip file.

gtfs_route

Given the name of a GTFS .zip file, filename, routing is as simple as the following code:

gtfs <- extract_gtfs (filename)
gtfs <- gtfs_timetable (gtfs, day = "Wed") # A pre-processing step to speed up queries
gtfs_route (gtfs,
    from = "Tegel",
    to = "Berlin Hauptbahnhof",
    start_time = 12 * 3600 + 120
) # 12:02 in seconds
<table> <colgroup> <col style="width: 12%" /> <col style="width: 19%" /> <col style="width: 36%" /> <col style="width: 14%" /> <col style="width: 17%" /> </colgroup> <thead> <tr> <th style="text-align: left;">route_name</th> <th style="text-align: left;">trip_name</th> <th style="text-align: left;">stop_name</th> <th style="text-align: left;">arrival_time</th> <th style="text-align: left;">departure_time</th> </tr> </thead> <tbody> <tr> <td style="text-align: left;">U8</td> <td style="text-align: left;">U Paracelsus-Bad</td> <td style="text-align: left;">U Schonleinstr. (Berlin)</td> <td style="text-align: left;">12:04:00</td> <td style="text-align: left;">12:04:00</td> </tr> <tr> <td style="text-align: left;">U8</td> <td style="text-align: left;">U Paracelsus-Bad</td> <td style="text-align: left;">U Kottbusser Tor (Berlin)</td> <td style="text-align: left;">12:06:00</td> <td style="text-align: left;">12:06:00</td> </tr> <tr> <td style="text-align: left;">U8</td> <td style="text-align: left;">U Paracelsus-Bad</td> <td style="text-align: left;">U Moritzplatz (Berlin)</td> <td style="text-align: left;">12:08:00</td> <td style="text-align: left;">12:08:00</td> </tr> <tr> <td style="text-align: left;">U8</td> <td style="text-align: left;">U Paracelsus-Bad</td> <td style="text-align: left;">U Heinrich-Heine-Str. (Berlin)</td> <td style="text-align: left;">12:09:30</td> <td style="text-align: left;">12:09:30</td> </tr> <tr> <td style="text-align: left;">U8</td> <td style="text-align: left;">U Paracelsus-Bad</td> <td style="text-align: left;">S+U Jannowitzbrucke (Berlin)</td> <td style="text-align: left;">12:10:30</td> <td style="text-align: left;">12:10:30</td> </tr> <tr> <td style="text-align: left;">S5</td> <td style="text-align: left;">S Westkreuz</td> <td style="text-align: left;">S+U Jannowitzbrucke (Berlin)</td> <td style="text-align: left;">12:15:24</td> <td style="text-align: left;">12:15:54</td> </tr> <tr> <td style="text-align: left;">S5</td> <td style="text-align: left;">S Westkreuz</td> <td style="text-align: left;">S+U Alexanderplatz Bhf (Berlin)</td> <td style="text-align: left;">12:17:24</td> <td style="text-align: left;">12:18:12</td> </tr> <tr> <td style="text-align: left;">S5</td> <td style="text-align: left;">S Westkreuz</td> <td style="text-align: left;">S Hackescher Markt (Berlin)</td> <td style="text-align: left;">12:19:24</td> <td style="text-align: left;">12:19:54</td> </tr> <tr> <td style="text-align: left;">S5</td> <td style="text-align: left;">S Westkreuz</td> <td style="text-align: left;">S+U Friedrichstr. Bhf (Berlin)</td> <td style="text-align: left;">12:21:24</td> <td style="text-align: left;">12:22:12</td> </tr> <tr> <td style="text-align: left;">S5</td> <td style="text-align: left;">S Westkreuz</td> <td style="text-align: left;">S+U Berlin Hauptbahnhof</td> <td style="text-align: left;">12:24:06</td> <td style="text-align: left;">12:24:42</td> </tr> </tbody> </table>

gtfs_traveltimes

The gtfs_traveltimes() function` calculates minimal travel times from any nominated stop to all other stops within a feed. It requires the two parameters of start station, and a vector of two values specifying earliest and latest desired start times. The following code returns the fastest travel times to all stations within the feed for services which leave the nominated station (“Alexanderplatz”) between 12:00 and 13:00 on a Monday:

gtfs <- extract_gtfs (filename)
gtfs <- gtfs_timetable (gtfs, day = "Monday")
x <- gtfs_traveltimes (gtfs,
    from = "Alexanderplatz",
    start_time_limits = c (12, 13) * 3600
)

The function returns a simple table detailing all stations reachable with services departing from the nominated station and start times:

head (x)
<table> <colgroup> <col style="width: 12%" /> <col style="width: 10%" /> <col style="width: 12%" /> <col style="width: 15%" /> <col style="width: 27%" /> <col style="width: 10%" /> <col style="width: 10%" /> </colgroup> <thead> <tr> <th style="text-align: left;">start_time</th> <th style="text-align: left;">duration</th> <th style="text-align: right;">ntransfers</th> <th style="text-align: left;">stop_id</th> <th style="text-align: left;">stop_name</th> <th style="text-align: right;">stop_lon</th> <th style="text-align: right;">stop_lat</th> </tr> </thead> <tbody> <tr> <td style="text-align: left;">12:00:42</td> <td style="text-align: left;">00:14:42</td> <td style="text-align: right;">1</td> <td style="text-align: left;">060003102223</td> <td style="text-align: left;">S Bellevue (Berlin)</td> <td style="text-align: right;">13.34710</td> <td style="text-align: right;">52.51995</td> </tr> <tr> <td style="text-align: left;">12:00:42</td> <td style="text-align: left;">00:08:36</td> <td style="text-align: right;">0</td> <td style="text-align: left;">060003102224</td> <td style="text-align: left;">S Bellevue (Berlin)</td> <td style="text-align: right;">13.34710</td> <td style="text-align: right;">52.51995</td> </tr> <tr> <td style="text-align: left;">12:00:42</td> <td style="text-align: left;">00:15:06</td> <td style="text-align: right;">1</td> <td style="text-align: left;">060003103233</td> <td style="text-align: left;">S Tiergarten (Berlin)</td> <td style="text-align: right;">13.33624</td> <td style="text-align: right;">52.51396</td> </tr> <tr> <td style="text-align: left;">12:00:42</td> <td style="text-align: left;">00:10:42</td> <td style="text-align: right;">0</td> <td style="text-align: left;">060003103234</td> <td style="text-align: left;">S Tiergarten (Berlin)</td> <td style="text-align: right;">13.33624</td> <td style="text-align: right;">52.51396</td> </tr> <tr> <td style="text-align: left;">12:00:42</td> <td style="text-align: left;">00:14:18</td> <td style="text-align: right;">1</td> <td style="text-align: left;">060003201213</td> <td style="text-align: left;">S+U Berlin Hauptbahnhof</td> <td style="text-align: right;">13.36892</td> <td style="text-align: right;">52.52585</td> </tr> <tr> <td style="text-align: left;">12:00:42</td> <td style="text-align: left;">00:05:54</td> <td style="text-align: right;">0</td> <td style="text-align: left;">060003201214</td> <td style="text-align: left;">S+U Berlin Hauptbahnhof</td> <td style="text-align: right;">13.36892</td> <td style="text-align: right;">52.52585</td> </tr> </tbody> </table>

Further details are provided in a separate vignette.

gtfs_transfer_table

Feeds should include a “transfers.txt” table detailing all possible transfers between nearby stations, yet many feeds omit these tables, rendering them unusable for routing because transfers between services can not be calculated. The gtfsrouter package also includes a function, gtfs_transfer_table(), which can calculate a transfer table for a given feed, with transfer times calculated either using straight-line distances (the default), or using more realistic pedestrian times routed through the underlying street network.

This function can also be used to enable routing through multiple adjacent or overlapping GTFS feeds. The feeds need simply be merged through binding the rows of all tables, and the resultant aggregate feed submitte

Related Skills

View on GitHub
GitHub Stars104
CategoryProduct
Updated1mo ago
Forks17

Languages

R

Security Score

85/100

Audited on Jul 1, 2026

No findings