tests/testthat/test-10DifferentPkgs_testthat.R

In Require: Installing and Loading R Packages for Reproducible Workflows

test_that("test 10", {
  setupInitial <- setupTest(needRequireInNewLib = TRUE)
  # on.exit(endTest(setupInitial))

  isDev <- getOption("Require.isDev")
  isDevAndInteractive <- getOption("Require.isDevAndInteractive")
  # Skip on CI: installs bcgov/climr + tidymodels + ccissr — heavy GitHub
  # cascades that exceed CI budgets. Runs locally for devs via
  # R_REQUIRE_RUN_ALL_TESTS=true. Same rationale applies to CRAN's check
  # farm (install budget + risk of detritus from source compiles).
  skip_on_cran()
  skip_on_ci()
  if (isDev) {
    # 4.3.0 doesn't have binaries, and historical versions of spatial packages won't compile
    pkgs <- c('reproducible',
              'SpaDES.core (>= 2.0.3)',
              ## other:
              'aws.s3',
              'bcgov/climr@devl (HEAD)',
              'bcgov/ccissr@main (HEAD)',
              'crayon',
              'data.table',
              'foreach',
              'gdalUtilities',
              'ggplot2',
              'terra',
              'themis',
              'tidymodels')
    if (isUbuntuOrDebian()) {
      origRepos2 <- setLinuxBinaryRepo()
      on.exit(options(origRepos2))
    }

    Install(pkgs) |>
      capture_warnings() -> warns

    if (getOption("Require.installPackagesSys") < 2)
      warns <- grep("installation of package.+cissr.+had non-zero exit status", invert = TRUE, warns)
    test <- testWarnsInUsePleaseChange(warns)
    expect_true(test)
    skip_if_offline2()

    ins <- installed.packages(noCache = TRUE) |> as.data.table()
    notInstalled <- setdiff(extractPkgName(pkgs), ins$Package)
    notInstalled <- setdiff(notInstalled, loadedNamespaces())

    # Currently failing to install ccissr because of an incorrect exports
    #   in climr July 7 ## TODO
    notInstalled <- setdiff(notInstalled, "ccissr")
    expect_identical(notInstalled, character(0))
  }


})