library(nsapi)
context("Stations data")
test_that("Get stations data",{
# test get.stations
if ( is.null(auth_cache$NS_USER) || is.null(auth_cache$NS_PASS )) {
skip("Credentials not available")
}
df <- get.stations()
expect_is(df, "data.frame")
expect_identical(get.stations(), df)
})
test_that("Download stations data", {
# test download.stations
if ( is.null(auth_cache$NS_USER) || is.null(auth_cache$NS_PASS )) {
skip("Credentials not available")
}
xml <- get.stations.xml()
expect_is(xml, "xml_document")
expect_identical(download.stations(), xml)
})
test_that("Parse Stations XML", {
# test parse.stations
xml.data <- xml2::read_xml("stations_small.xml")
df.data <- parse.stations(xml.data)
expect_equal(nrow(df.data), 3)
expect_equal(df.data[1, "code"], "HT")
expect_equal(df.data[1, "type"], "knooppuntIntercitystation")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.