Nothing
test_that("API errors for a bad path", {
expect_error(wmata_api("Rail"))
})
test_that("API errors with message", {
expect_error(next_train(station = "XXX"))
})
test_that("API returns JSON for a proper path", {
skip_if_no_key()
Sys.sleep(0.11)
x <- wmata_api("Rail.svc/json/jLines")
expect_length(x, 1)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.