tests/testthat/helper-options.R

with_gradethis_setup <- function(expr, ...) {
  old_opts <- gradethis_setup(...)
  on.exit(options(old_opts), add = TRUE)
  force(expr)
}

with_seed <- function(seed, expr) {
  set.seed(seed)
  expr
}
rstudio-education/grader documentation built on July 6, 2023, 8:48 a.m.