tests/testthat/resources/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
)
r-lib/evaluate documentation built on June 10, 2025, 5:24 p.m.