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
}
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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.
