context("cf_find_station")
test_that("cf_find_station", {
skip_on_cran()
# skip_on_travis()
tt = cf_find_station("island")
expect_is(tt, "cfStation")
expect_is(tt$name, "character")
expect_is(tt$network, "character")
expect_is(tt$agent, "integer")
expect_is(tt$start, "POSIXct")
expect_is(tt$end, "POSIXct")
expect_is(tt$open, "logical")
expect_is(tt$distance, "logical")
expect_is(tt$lat, "numeric")
expect_is(tt$lon, "numeric")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.