tests/example8.R

library(winch)

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

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

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

boo <- 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.