context("Test fieldguide generator")
thischeck <- function() {
test_that("fieldguide works as expected", {
skip_on_cran()
tmp <- fieldguide(guids = c("http://id.biodiversity.org.au/node/apni/
2890970"))
expect_is(tmp, "character")
expect_equal(length(tmp), 1)
expect_true(file.exists(tmp))
})
}
check_caching(thischeck)
thischeck <- function() {
test_that("fieldguide degenerate calls work", {
expect_error(fieldguide()) ## no guids
expect_error(fieldguide(guids = NULL)) ## NULL guids
})
}
check_caching(thischeck)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.