tests/testthat/test-phantom_loading.R

In DataPackageR: Construct Reproducible Analytic Data Sets as R Packages

testthat::test_that(
  "no phantom package loading from roxygenise() or associated warnings",
  {
    # test README.Rmd sequence that led to warnings
    processing_code <- system.file(
      "extdata", "tests", "subsetCars.Rmd", package = "DataPackageR"
    )
    pkg_name <- "mtcars20"
    on.exit(
      if (pkg_name %in% names(utils::sessionInfo()$otherPkgs)){
        pkgload::unload(pkg_name)
      }
    )
    # remove this directory on exit
    temp_dir <- withr::local_tempdir()
    pkg_path <- file.path(temp_dir, pkg_name)

    datapackage_skeleton(
      pkg_name, force = TRUE,
      code_files = processing_code,
      r_object_names = "cars_over_20",
      path = temp_dir)

    expect_no_warning(package_build(pkg_path, install = FALSE))
    # test phantom pkg loading side effect from roxygen2::roxygenise()
    expect_false(
      res1 <- pkg_name %in% names(utils::sessionInfo()$otherPkgs)
    )

    # reset for next test
    if (res1) pkgload::unload(pkg_name)

    # test phantom pkg loading side effect from roxygen2::roxygenise()
    expect_no_warning(document(pkg_path, install = FALSE))
    expect_false(
      res2 <- pkg_name %in% names(utils::sessionInfo()$otherPkgs)
    )
  }
)