test_that("dryad_download", {
skip_on_cran()
skip_on_ci()
# for some the cache path set in 'helper-rdryad.R' is not set here?
obj <- rdryad::dryad_get_cache()
obj$cache_path_set(full_path = "../files")
rdryad::dryad_set_cache(obj)
vcr::use_cassette("dryad_download", {
aa <- dryad_download(dois = "10.5061/dryad.f385721n")
})#, match_requests_on = c("method", "uri"))
expect_is(aa, "list")
expect_equal(length(aa), 1)
expect_named(aa, "10.5061/dryad.f385721n")
expect_is(aa[[1]], "character")
expect_true(any(grepl("csv", aa[[1]])))
expect_true(any(grepl("rtf", aa[[1]])))
})
# FIXME: not sure how to get vcr working for dryad_download with many dois
# test_that("dryad_download accepts more than 1 id", {
# skip_on_cran()
# dois <- c("10.5061/dryad.f385721n", "10.5061/dryad.7ct1n", "10.5061/dryad.1g626")
# # vcr::use_cassette("dryad_download_many_dois", {
# bb <- dryad_download(dois = dois)
# # }, record = "new_episodes")
# # expect_is(bb, "list")
# # expect_equal(length(bb), 2)
# # for (i in bb) expect_is(i, "character")
# })
test_that("dryad_download fails well", {
skip_on_cran()
# dois: required param
expect_error(dryad_download())
# dois: wrong type
expect_error(dryad_download(5))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.