test_that("test use_recommended_deps", {
testthat::skip_on_cran()
testthat::skip_if_not_installed("desc")
with_dir(pkg, {
packages <- c("shiny", "DT", "attempt", "glue", "golem", "htmltools")
to_add <- c()
for (i in packages) {
if (requireNamespace(i)) {
to_add <- c(to_add, i)
}
}
expect_warning(
use_recommended_deps(recommended = to_add)
)
deps <- desc_get_deps(file = "DESCRIPTION")
expect_true(
all(to_add %in% deps$package)
)
})
})
test_that("test use_recommended_tests", {
with_dir(pkg, {
use_recommended_tests(spellcheck = FALSE)
expect_true(dir.exists("tests"))
expect_exists("tests/testthat/test-golem-recommended.R")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.