context("GetPackage")
# This is interactive and so is hard to test
test_that("GetPackage", {
t <- 3
expect_error(zoon::GetPackage(t), "package must be a character")
# lme4 <- try(zoon::GetPackage('lme4'), silent = TRUE)
# expect_null(lme4, info = 'GetPackage has failed with "lme4"')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.