examples/e12.R

In r-prof/winch: Portable Native and Joint Stack Traces

#' Integration with rlang:
#'
#' - https://github.com/r-lib/rlang/pull/1039

library(winch)

options(rlang_trace_use_winch = TRUE)

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

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

baz <- function() {
  rlang::abort("message")
}

foo()