testthat::context("check for tests")
testthat::test_that("tests are detected", {
testthat::expect_true(covrpage:::check_for_tests(".."))
})
testthat::context("check for packages")
td <- "../assets/covrpage_benchmark/covrpage"
testthat::test_that("packages are detected", {
testthat::skip_on_ci()
testthat::expect_error(covrpage:::check_for_pkgs("."))
testthat::expect_error(covrpage:::check_for_pkgs(".."))
testthat::expect_null(covrpage:::check_for_pkgs(td))
})
testthat::context("use covrpage")
testthat::test_that("test use_covrpage", {
testthat::expect_is(covrpage:::use_covrpage(file = NULL), "character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.