tests/testthat/helper-options.R

rq <- function(...) {
  suppressPackageStartupMessages(require(..., quietly = TRUE))
}

with_options <- function(opts, expr) {
  old_opts <- options(opts)
  on.exit(options(old_opts))
  force(expr)
}
ggobi/ggally documentation built on May 9, 2024, 7:21 a.m.