tests/example5.R

In winch: Portable Native and Joint Stack Traces

library(winch)

foo <- function() {
  winch_call(function() bar())
}

bar <- function() {
  winch_stop("oops")
}

if (winch_available() && require(magrittr) && requireNamespace("rlang")) {
  options(
    error = rlang::entrace,
    rlang_backtrace_on_error = "full",
    rlang_trace_use_winch = TRUE
  )

  tryCatch(foo() %>% identity(), error = identity)
}