context("ncdc_legacy")
test_that("basic functionality works", {
skip("Skipping ncdc_legacy for now")
# res <- ncdc_leg_data('isd', 71238099999, 'TMP', 200101010000, 200101312359)
#
# expect_is(res, "data.frame")
# expect_equal(unique(res$V12), "null")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.