Access the NS api and download current departure times, disruptions and engineering work, the station list, and travel recommendations from station to station. All results will be returned as a 'data.frame'. NS (Nederlandse Spoorwegen; Dutch Railways) is the largest train travel provider in the Netherlands. for more information about the API itself see < https://www.ns.nl/en/travel-information/ns-api>. To use the API, and this package, you will need to obtain a username and password. More information about authentication and the use of the functions are described in the vignette.
The Dutch National Railway service (NS; Nederlandse Spoorwegen) has an API where we can query for travel advise, see the current trains on a given station, see if there is any delays or work on the tracks and NS also provides a list with geolocation of all the stations.
The goal of nsapi is to make it easy to gather data from the NS API. The package returns data frames for every response.

You can NOT YET install the released version of nsapi from CRAN with:
install.packages("nsapi")
But you can install the development version from GitHub with:
# install.packages("devtools")
devtools::install_github("RMHogervorst/nsapi")
This is a basic example which shows you how you get travel information:
library(nsapi)
treinplanner <- get_travel_advise(
fromStation = "Leiden Centraal",
toStation = "Utrecht Centraal",
departure = TRUE,
yearCard = TRUE,
previousAdvises = 1,
nextAdvises = 1)
treinplanner
#> Melding AantalOverstappen GeplandeReisTijd ActueleReisTijd
#> 1 NA 1 0:55 0:58
#> 2 NA 0 0:42 0:42
#> 3 NA 1 1:00 1:00
#> 4 NA 0 0:42 0:42
#> VertrekVertraging AankomstVertraging Optimaal GeplandeVertrekTijd
#> 1 <NA> +3 min FALSE 2018-08-10 21:05:00
#> 2 <NA> <NA> TRUE 2018-08-10 21:22:00
#> 3 <NA> <NA> FALSE 2018-08-10 21:30:00
#> 4 <NA> <NA> FALSE 2018-08-10 21:52:00
#> ActueleVertrekTijd GeplandeAankomstTijd ActueleAankomstTijd
#> 1 2018-08-10 21:05:00 2018-08-10 22:00:00 2018-08-10 22:03:00
#> 2 2018-08-10 21:22:00 2018-08-10 22:04:00 2018-08-10 22:04:00
#> 3 2018-08-10 21:30:00 2018-08-10 22:30:00 2018-08-10 22:30:00
#> 4 2018-08-10 21:52:00 2018-08-10 22:34:00 2018-08-10 22:34:00
#> Status ReisDeel
#> 1 VERTRAAGD c("NS", ....
#> 2 VOLGENS-PLAN NS, Inte....
#> 3 VOLGENS-PLAN c("NS", ....
#> 4 VOLGENS-PLAN NS, Inte....
The package is MIT licensed although the information from NS is probably proprietary
codecoverage <- covr::package_coverage(path = ".",type = "tests")
print(codecoverage)
#> nsapi Coverage: 18.87%
#> R/api_calls_authentification.R: 4.84%
#> R/utils.R: 24.67%