tests/testthat/ressources/with-stop-error-trace.R

In evaluate: Parsing and Evaluation Tools that Provide More Details than the Default

testthat::local_reproducible_output()
handlers <- evaluate::new_output_handler(
  calling_handlers = list(error = function(cnd) rlang::entrace(cnd))
)
evaluate::evaluate(function() {
  f <- function() g()
  g <- function() h()
  h <- function() stop("!")
  f()
}, stop_on_error = 2L, output_handler = handlers)