Skip to content

k5cents/metro

Repository files navigation

metro

Lifecycle: experimental CRAN status Downloads Codecov test coverage R build status

The goal of metro is to return data frames from the Washington Metropolitan Area Transit Authority API. Nested lists have been converted to tidy data frames when possible.

Installation

The release version of metro (0.9.1) can be installed from CRAN:

install.packages("metro")

Or install the development version from GitHub:

# install.packages("devtools")
devtools::install_github("k5cents/metro")

Key

Usage of the WMATA API requires a developer API key. Such a key can be obtained by creating a developer account and subscribing to the free default tier.

The WMATA also provides a demo key to try out the various features of the API. This key should never be used in production, it is rate limited and subject to change at any time.

Sys.setenv(WMATA_KEY = "e13626d03d8e4c03ac07f95541b3091b")

Example

library(metro)
packageVersion("metro")
#> [1] '0.9.3'

Functions return data frames for easy analysis.

next_train(StationCodes = "A01")
#> # A tibble: 6 × 9
#>     Car Destination DestinationCode DestinationName Group Line  LocationCode LocationName   Min
#>   <int> <chr>       <chr>           <chr>           <int> <chr> <chr>        <chr>        <int>
#> 1     8 Glenmont    B11             Glenmont            1 RD    A01          Metro Center    -1
#> 2     6 Shady Grove <NA>            Shady Grove         2 RD    A01          Metro Center     1
#> 3     6 Glenmont    B11             Glenmont            1 RD    A01          Metro Center     3
#> 4     6 Shady Grove <NA>            Shady Grove         2 RD    A01          Metro Center     7
#> 5     8 Glenmont    B11             Glenmont            1 RD    A01          Metro Center     9
#> 6     8 Shady Grove <NA>            Shady Grove         2 RD    A01          Metro Center    14

Coordinates

Use coordinates to find station entrances or bus stops near a location. The geodist::geodist() function is used to calculate distance from the supplied coordinates.

# Washington Monument coordinates
rail_entrance(Lat = 38.890, Lon = -77.035, Radius = 750)[, -(3:4)]
#> # A tibble: 6 × 5
#>   Name                                        StationCode   Lat   Lon Distance
#>   <chr>                                       <chr>       <dbl> <dbl>    <dbl>
#> 1 12TH ST NW & JEFERSON DR SW                 D02          38.9 -77.0     582.
#> 2 12TH ST SW & INDEPENDENCE AVE SW (ELEVATOR) D02          38.9 -77.0     612.
#> 3 12TH ST SW & INDEPENDENCE AVE SW            D02          38.9 -77.0     626.
#> 4 12TH ST NW & PENNSYLVANIA AVE NW            D01          38.9 -77.0     672.
#> 5 13TH ST NW & PENNSYLVANIA AVE NW (BUILDING) D01          38.9 -77.0     685.
#> 6 12TH ST NW & PENNSYLVANIA AVE NW (ELEVATOR) D01          38.9 -77.0     714.

Dates and Times

Date columns with class POSIXt have been shifted from Eastern time to the UTC time zone (+5 hours).

bus_position(RouteId = "33")[, 1:8]
#> # A tibble: 8 × 8
#>   VehicleID   Lat   Lon Distance Deviation DateTime            TripID   RouteID
#>   <chr>     <dbl> <dbl>    <dbl>     <dbl> <dttm>              <chr>    <chr>  
#> 1 7150       39.0 -77.1       NA         0 2024-03-12 01:51:23 31544020 33     
#> 2 4604       38.9 -77.0       NA         3 2024-03-12 01:51:17 25897020 33     
#> 3 7142       38.9 -77.1       NA         2 2024-03-12 01:51:37 46893020 33     
#> 4 4788       38.9 -77.1       NA         7 2024-03-12 01:51:39 12908020 33     
#> 5 4567       38.9 -77.0       NA         3 2024-03-12 01:51:39 12746020 33     
#> 6 4579       38.9 -77.1       NA         0 2024-03-12 01:51:24 16822020 33     
#> 7 7108       38.9 -77.0       NA         2 2024-03-12 01:51:38 25354020 33     
#> 8 4610       39.0 -77.1       NA         0 2024-03-12 01:51:19 13917020 33

Time values are left in Eastern time and are represented using the class hms, which counts the seconds since midnight. If the last train on a Saturday leaves at 1:21 AM (past midnight), this would be represented as 25:21.

tail(rail_times(StationCode = "E10"))
#> # A tibble: 6 × 7
#>   StationCode StationName DestinationStation Weekday OpeningTime FirstTime LastTime
#>   <chr>       <chr>       <chr>              <chr>   <time>      <time>    <time>  
#> 1 E10         Greenbelt   F11                Tue     04:50       05:00     23:30   
#> 2 E10         Greenbelt   F11                Wed     04:50       05:00     23:30   
#> 3 E10         Greenbelt   F11                Thu     04:50       05:00     23:30   
#> 4 E10         Greenbelt   F11                Fri     04:50       05:00     26:30   
#> 5 E10         Greenbelt   F11                Sat     06:50       07:00     26:30   
#> 6 E10         Greenbelt   F11                Sun     06:50       07:00     23:30

Data

Some data frames are includes as objects if their functions typically return the same thing every time.

metro_lines # rail_lines() for live
#> # A tibble: 6 × 5
#>   LineCode DisplayName StartStationCode EndStationCode InternalDestination
#>   <chr>    <chr>       <chr>            <chr>          <list>             
#> 1 BL       Blue        J03              G05            <chr [0]>          
#> 2 GR       Green       F11              E10            <chr [0]>          
#> 3 OR       Orange      K08              D13            <chr [0]>          
#> 4 RD       Red         A15              B11            <chr [2]>          
#> 5 SV       Silver      N06              G05            <chr [0]>          
#> 6 YL       Yellow      C15              E06            <chr [1]>