tests/testthat/ressources/with-abort-error.R

testthat::local_reproducible_output()
evaluate::evaluate(function() {
  f <- function() g()
  g <- function() h()
  h <- function() rlang::abort("!")
  f()
}, stop_on_error = 2L)

Try the evaluate package in your browser

Any scripts or data that you put into this service are public.

evaluate documentation built on April 4, 2025, 2:34 a.m.