Nothing
context("ncdc_datasets")
test_that("ncdc_datasets returns the correct class", {
skip_on_cran()
vcr::use_cassette("ncdc_datasets", {
tt <- ncdc_datasets()
uu <- ncdc_datasets(datasetid='ANNUAL')
# class
expect_is(tt, "ncdc_datasets")
expect_is(tt$data, "data.frame")
expect_is(tt$data$mindate, "character")
expect_is(uu, "ncdc_datasets")
expect_is(uu$data, "data.frame")
expect_is(uu$meta, "NULL")
# dimensions
expect_equal(dim(tt$data), c(11,6))
expect_equal(length(tt$data$id), 11)
expect_equal(length(uu), 2)
})
})
# no internet required
test_that("ncdc_datasets fails well", {
skip_on_cran()
# unload vcr namespace
unloadNamespace("vcr")
webmockr::enable()
url <- 'https://www.ncdc.noaa.gov/cdo-web/api/v2/datasets?limit=25'
ss <- webmockr::stub_request('get', url)
webmockr::to_return(ss, body = "<!DOCTYPE HTML PUBLIC><>")
expect_error(ncdc_datasets(datasetid='ANNUAL'), "lexical error")
webmockr::disable()
# re-attach vcr namespace
attachNamespace("vcr")
vcr_set()
})
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.