test_that("works", {
skip_on_cran()
vcr::use_cassette("works", {
aa <- works( orcid_id("0000-0003-1620-1408") )
bb <- works( orcid_id("0000-0003-1444-9135") )
})
# gives the right classes
expect_is(aa, "works")
expect_named(aa, character(0))
expect_equal(NROW(aa), 0)
expect_is(bb, "works")
expect_is(bb, "data.frame")
expect_is(bb$`source.source-orcid.path`, "character")
expect_true(any(grepl("taxize", bb$`title.title.value`)))
})
test_that("works fails well", {
expect_error(works(5), "no 'as.orcid' method")
expect_error(works(mtcars), "no 'as.orcid' method")
skip_on_cran()
vcr::use_cassette("works_error", {
expect_error(works("Asfaf"), "ORCID iD Asfaf not found", "error")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.