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)
}
