tests/example7.R

library(winch)

foo <- function() {
  purrr::map(1, ~ bar())
}

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

baz <- function() {
  winch_add_trace_back()
}

if (winch_available() && requireNamespace("purrr")) {
  tryCatch(foo(), error = identity)
}

Try the winch package in your browser

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

winch documentation built on April 20, 2023, 9:14 a.m.