【R】trainR

1. はじめに

trainRは、National Rail Enquiries.からイギリスの鉄道情報を取得するためのパッケージです。

2. インストール

CRANからインストールできます。

install.packages("trainR")

3. 使ってみる

利用するには、登録してトークンを受け取る必要があります。こちらにアクセスして登録します。無料でできます。

取得したトークンをRに設定します。

trainR::set_token()

テキストファイル.Renvironが開くので、そこへトークンを記述します。

NRE="<token>"

Rを再起動します。

Readingからの出発のテーブルを見てみます（欧州での鉄道の時刻表は日本と違い、到着と出発に分かれています）。

library(trainR)
rd_arvl <- trainR::GetArrBoardWithDetailsRequest("RDG")
print(rd_arvl)

Reading (RDG) Station Board on 2021-03-12 00:24:17
Time   From                                    Plat  Expected
00:23  London Paddington                       13    On time
00:40  Henley-on-Thames                        13    On time
00:49  London Paddington                       15    On time
01:31  London Paddington                       13A   On time
02:21  London Paddington                       14    On time
Time   From                                    Plat  Expected
00:28  Newbury                                 BUS   On time

リアルタイムの列車の運行状況なので、取得するタイミングで結果が異なります。

出発はこちら。

rd_dept <- trainR::GetDepBoardWithDetailsRequest("RDG")
print(rd_dept)

> print(rd_dept)
Reading (RDG) Station Board on 2021-03-12 00:28:22
Time   To                                      Plat  Expected
00:27  Didcot Parkway                          13    On time
00:49  Penzance                                12    On time
01:15  London Paddington                       15    On time
02:24  London Paddington                       15    On time

詳細を示さずユーストンへの到着テーブルです。

rd_arvl <- trainR::GetArrBoardRequest("EUS")
print(rd_arvl)

> print(rd_arvl)
London Euston (EUS) Station Board on 2021-03-12 00:35:50
Time   From                                    Plat  Expected
00:59  Birmingham New Street                   12    On time
01:12  Wolverhampton                           3     On time

4. さいごに

こういう情報を簡単に取得できるAPIはいいですね。イギリス旅行に行きたくなった。。。