/usr/share/doc/r-cran-pkgload/tests/testthat/testUserLoadHookError/R/testUserLoadHookError.R

the <- new.env()

# Can't fully reset onLoad hook so only run once in case of repeated
# `test()` calls
the$ran_already <- FALSE

.onLoad <- function(...) {
  setHook(
    packageEvent("testUserLoadHookUpstream", "onLoad"),
    function(...) {
      if (the$ran_already) {
        return()
      }
      the$ran_already <- TRUE

      rlang::signal("", "hook_was_run_error")
      stop("The message.")
    }
  )
}

Generated by dwww version 1.15 on Fri May 24 02:32:56 CEST 2024.