This package provides a R interface to the Washington Metropolitan Area Transit Authority (WMATA) API
You can use this interface to query the WMATA API. For example, you can get the real time predictions for train arrivals at Metro Center (code A01):
library(wmata)
# get data
j <- next_trains("A01")
# show just the first 3 results
str(j$Trains[1:3], 2)
#> List of 3
#> $ :List of 9
#> ..$ Car : chr "8"
#> ..$ Destination : chr "Shady Gr"
#> ..$ DestinationCode: chr "A15"
#> ..$ DestinationName: chr "Shady Grove"
#> ..$ Group : chr "2"
#> ..$ Line : chr "RD"
#> ..$ LocationCode : chr "A01"
#> ..$ LocationName : chr "Metro Center"
#> ..$ Min : chr "5"
#> $ :List of 9
#> ..$ Car : chr "8"
#> ..$ Destination : chr "Glenmont"
#> ..$ DestinationCode: chr "B11"
#> ..$ DestinationName: chr "Glenmont"
#> ..$ Group : chr "1"
#> ..$ Line : chr "RD"
#> ..$ LocationCode : chr "A01"
#> ..$ LocationName : chr "Metro Center"
#> ..$ Min : chr "7"
#> $ :List of 9
#> ..$ Car : chr "8"
#> ..$ Destination : chr "Takoma"
#> ..$ DestinationCode: chr "B07"
#> ..$ DestinationName: chr "Takoma"
#> ..$ Group : chr "1"
#> ..$ Line : chr "RD"
#> ..$ LocationCode : chr "A01"
#> ..$ LocationName : chr "Metro Center"
#> ..$ Min : chr "18"A data frame with mappings from stations to station codes is provided as
the object stations:
head(stations[c("Code", "Name")], 10)
#> Code Name
#> 1 A01 Metro Center
#> 2 A02 Farragut North
#> 3 A03 Dupont Circle
#> 4 A04 Woodley Park-Zoo/Adams Morgan
#> 5 A05 Cleveland Park
#> 6 A06 Van Ness-UDC
#> 7 A07 Tenleytown-AU
#> 8 A08 Friendship Heights
#> 9 A09 Bethesda
#> 10 A10 Medical CenterYou can install the released version of wmata from GitHub with:
devtools::install_github("zamorarr/wmata")You will also have to sign up for a WMATA developer key at https://developer.wmata.com/. Once you get a key, edit your .Renviron file and place this line in there (replacing XXX with your key):
WMATA_KEY=XXXXXXXYou can use usethis::edit_r_environ() to edit your .Renviron file.