test_that(".assert_package() works", {
# broom will always be installed with broom.helpers
expect_error(
.assert_package("broom"),
NA
)
expect_true(.assert_package("broom", boolean = TRUE))
expect_false(.assert_package("br000000m", boolean = TRUE))
mv <- c(Suggests = "1.1.28")
attr(mv, "compare") <- ">="
expect_equal(
.get_min_version_required("lme4"),
mv
)
expect_null(
.get_min_version_required("brms", pkg_search = NULL)
)
expect_null(
.get_min_version_required("broom", pkg_search = NULL)
)
expect_error(
df_deps <- .get_package_dependencies(),
NA
)
expect_true(
df_deps |> inherits("data.frame")
)
expect_equal(
names(df_deps),
c("pkg_search", "pkg_search_version", "dependency_type", "pkg", "version", "compare")
)
expect_error(
deps <- .get_all_packages_dependencies(),
NA
)
expect_true(nrow(deps) > 100)
skip_if(interactive())
# expect an error msg for pkg that doesn't exist
# note: if interactive(), user will be invited to install the missing pkg
expect_error(
.assert_package("br000000m")
)
expect_error(
.assert_package("br000000m", fn = "test_fun()")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.