Running 'example0.R' [1s]
  Running 'example1.R' [160s]
  Running 'example2.R' [160s]
  Running 'example3.R' [1s]
  Running 'example4.R' [167s]
  Running 'example5.R' [0s]
  Running 'example6.R' [1s]
  Running 'example7.R' [162s]
  Running 'example8.R' [1s]
  Running 'testthat.R' [1s]
Running the tests in 'tests/example1.R' failed.
Complete output:
  > library(winch)
  > 
  > foo0 <- function() {
  +   winch_call(bar0)
  + }
  > 
  > bar0 <- function() {
  +   winch_call(baz0)
  + }
  > 
  > baz0 <- function() {
  +   winch_add_trace_back()
  + }
  > 
  > if (winch_available()) {
  +   foo0()
  + }
      ▆
   1. └─global foo0()
   2.   └─winch::winch_call(bar0)
   3.     └─`/winch.dll`::register_frame_ctor()
   4.       └─global `<fn>`()
   5.         └─winch::winch_call(baz0)
   6.           └─`/winch.dll`::register_frame_ctor()
   7.             └─global `<fn>`()
  Warning message:
  `winch_add_trace_back()` was deprecated in winch 0.1.0. 
  > 
  > proc.time()
     user  system elapsed 
     0.65    0.12    0.76 
Running the tests in 'tests/example2.R' failed.
Complete output:
  > library(winch)
  > 
  > foo <- function() {
  +   winch_call(function() bar())
  + }
  > 
  > bar <- function() {
  +   stop("oops")
  + }
  > 
  > if (winch_available() && requireNamespace("rlang")) {
  +   options(
  +     error = rlang::entrace,
  +     rlang_backtrace_on_error = "full",
  +     rlang_trace_use_winch = TRUE
  +   )
  + 
  +   tryCatch(foo(), error = identity)
  + }
  <simpleError in bar(): oops>
  > 
  > proc.time()
     user  system elapsed 
     0.32    0.07    0.39 
Running the tests in 'tests/example4.R' failed.
Complete output:
  > library(winch)
  > 
  > foo <- function() {
  +   winch_call(function() bar())
  + }
  > 
  > bar <- function() {
  +   winch_stop("oops")
  + }
  > 
  > if (winch_available() && requireNamespace("rlang")) {
  +   options(
  +     error = rlang::entrace,
  +     rlang_backtrace_on_error = "full",
  +     rlang_trace_use_winch = TRUE
  +   )
  + 
  +   tryCatch(foo(), error = identity)
  + }
  <simpleError in winch_stop("oops"): winch_stop(): oops>
  > 
  > proc.time()
     user  system elapsed 
     0.31    0.12    0.42 
Running the tests in 'tests/example7.R' failed.
Complete output:
  > 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)
  + }
  Loading required namespace: purrr
  [[1]]
       ▆
    1. ├─base::tryCatch(foo(), error = identity)
    2. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    3. │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    4. │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
    5. └─global foo()
    6.   └─purrr::map(1, ~bar())
    7.     └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    8.       ├─purrr:::with_indexed_errors(...)
    9.       │ └─base::withCallingHandlers(...)
   10.       └─purrr:::call_with_cleanup(...)
   11.         └─`/purrr.dll`::register_frame_ctor()
   12.           └─`/purrr.dll`::register_frame_ctor()
   13.             └─.f(.x[[i]], ...)
   14.               └─global bar()
   15.                 └─winch::winch_call(baz)
   16.                   └─`/purrr.dll`::register_frame_ctor()
   17.                     └─`/purrr.dll`::register_frame_ctor()
   18.                       └─`/purrr.dll`::register_frame_ctor()
   19.                         └─`/winch.dll`::register_frame_ctor()
   20.                           └─global `<fn>`()
  
  Warning message:
  `winch_add_trace_back()` was deprecated in winch 0.1.0. 
  > 
  > proc.time()
     user  system elapsed 
     0.67    0.20    0.86