Nothing
context("wrapper")
# grab the feed for portland's biketown... these feeds
# change regularly, so test failures might result from
# changes in the operation model of biketown rather than
# failure of the software
biketown <- get_gbfs("biketown_pdx")
bike_itau <- get_gbfs("santiago")
bird_url <- "https://mds.bird.co/gbfs/chicago/gbfs.json"
if (url_exists(bird_url)) {
bird <- get_gbfs(bird_url)
} else {
skip("no internet connection")
}
test_that("main wrapper works", {
skip_if_offline(host = "r-project.org")
expect_equal(class(biketown), "list")
expect_equal(class(bike_itau), "list")
expect_equal(class(bird), "list")
})
test_that("argument checking works", {
skip_if_offline(host = "r-project.org")
# no directory supplied but user wants to save
expect_error(get_gbfs("biketown_pdx",
output = "save"),
"The argument to output suggests")
})
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.