context("ncep2")
test_that("NCEP2 files good", {
skip_if_not(!is.null(get_raad_data_roots()))
skip_if_not(!is.null(getOption("raadfiles.database.status")))
skip_on_ci()
uwnd <- ncep2_uwnd_6hr_files()
uwnd %>% expect_s3_class("tbl_df") %>% expect_named(c("date", "fullname", "root"))
expect_true(inherits(uwnd$date, "POSIXct"))
expect_true(all(grepl("uwnd", basename(uwnd$fullname))))
vwnd <- ncep2_vwnd_6hr_files()
expect_true(all(grepl("vwnd", basename(vwnd$fullname))))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.