tests/testthat/helper-state.R

In primarycensored: Primary Event Censored Distributions

# This helper ensures the package does not modify the session global state. As
# per CRAN policy, packages should not interfere with the user's session state.
# If global settings need to be modified, they should be restored to their
# original values on exit. This can be achieved with the `on.exit()` base
# function, or more conveniently with the `withr` package.
# Note that `globalCallingHandlers` is only available on version of R >= 4.0

# Other potential global state functions are `Sys.getenv()` and `options()` but
# they cause issues:
# - Extra options related to matrixStats are set on macOS. See issue #439.
# - cmdstanr sets `STAN_NUM_THREADS` based on the value of `threads_per_chain`;
#   See https://github.com/stan-dev/cmdstanr/blob/bc60419/R/run.R#L375.
testthat::set_state_inspector(function() {
  list(
    attached = search(),
    connections = getAllConnections(),
    cwd = getwd(),
    handlers = if (getRversion() >= "4.0.0") {
      globalCallingHandlers()
    } else {
      Sys.getenv("error")
    },
    libpaths = .libPaths(),
    locale = Sys.getlocale(),
    par = par(),
    packages = .packages(all.available = TRUE),
    sink = sink.number(),
    timezone = Sys.timezone(),
    NULL
  )
})