test_that("orcid_doi basic functionality works", {
skip_on_cran()
vcr::use_cassette("orcid_doi", {
aa <- orcid_doi("10.1087/20120404")
})
expect_is(aa, "orcid_doi")
expect_is(unclass(aa), "list")
expect_equal(length(aa), 1)
expect_is(aa[[1]], "tbl_df")
expect_type(attr(aa[[1]], 'found'), "integer")
})
test_that("orcid_doi accepts many doi's", {
skip_on_cran()
dois <- c("10.1371/journal.pone.0025995","10.1371/journal.pone.0053712")
vcr::use_cassette("orcid_doi_many_dois", {
bb <- orcid_doi(dois)
})
expect_is(bb, "orcid_doi")
expect_is(unclass(bb), "list")
expect_equal(length(bb), 2)
expect_is(bb[[1]], "tbl_df")
expect_is(bb[[2]], "tbl_df")
})
test_that("orcid_doi paging parameters works as expected", {
skip_on_cran()
vcr::use_cassette("orcid_doi_pagination", {
pg1 <- orcid_doi("10.1087/20120404", rows = 3)
pg2 <- orcid_doi("10.1087/20120404", rows = 3, start = 4)
})
expect_false(identical(pg1[[1]], pg2[[1]]))
expect_type(attr(pg1[[1]], "found"), "integer")
expect_type(attr(pg2[[1]], "found"), "integer")
expect_equal(NROW(pg1[[1]]), 3)
expect_gt(NROW(pg2[[1]]), 0)
})
test_that("orcid_doi fails well", {
skip_on_cran()
expect_error(orcid_doi(5), "The following are not DOIs")
expect_error(orcid_doi(list(a = 6)), "The following are not DOIs")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.