if(require("suppdata") & require("testthat")){
context("RSBP")
test_that("'Proceedings of the royal society Biology' (RSBP) works", {
skip_on_cran()
expect_true(file.exists(suppdata("10.1098/rspb.2015.0338", vol = 282,
issue = 1811, 1)))
})
test_that("'Proceedings of the royal society Biology' (RSBP) fails for character SI info", {
skip_on_cran()
expect_error(suppdata("10.1098/rspb.2015.0338", vol = 282, issue = 1811, "99"), "numeric SI info")
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.