Nothing
context("testing cr_citation_count")
test_that("cr_citation_count returns", {
vcr::use_cassette("cr_citation_count", {
# one
a <- cr_citation_count(doi="10.1371/journal.pone.0042793")
# many
b <- cr_citation_count(doi=c("10.1371/journal.pone.0042793",
"10.1016/j.fbr.2012.01.001"))
}, preserve_exact_body_bytes = TRUE)
# correct classes
expect_is(a, "data.frame")
expect_named(a, c('doi', 'count'))
expect_is(a$doi, "character")
expect_is(a$count, "numeric")
expect_is(b, "data.frame")
expect_named(b, c('doi', 'count'))
expect_is(b$doi, "character")
expect_is(b$count, "numeric")
# correct length
expect_equal(NROW(a), 1)
expect_equal(NROW(b), 2)
})
test_that("cr_citation_count fails correctly", {
vcr::use_cassette("cr_citation_count_fails_well", {
expect_error(cr_citation_count(doi="10.1371/journal.pone.0042793",
timeout_ms = 1))
expect_equal(cr_citation_count("10.1371/journal.pone.004")$count,
NA_integer_)
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.