context("test-use_packs")
if ("harrypotter" %in% installed.packages()[, 1]) {
unloadNamespace("harrypotter")
remove.packages("harrypotter")
}
test_that("installing with packs = NULL errors", {
expect_error(
use_packs()
)
})
test_that("installing packages works", {
expect_message(
use_packs("harrypotter")
)
unloadNamespace("harrypotter")
})
test_that("attempting to install already installed package gets message", {
expect_message(
use_packs("harrypotter")
)
unloadNamespace("harrypotter")
})
test_that("force installing already installed package works", {
expect_message(
use_packs("harrypotter", force = TRUE)
)
unloadNamespace("harrypotter")
remove.packages("harrypotter")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.