tests/testthat/_snaps/cnd.md

In tidyverse/rlang: Functions for Base Types and Core R and 'Tidyverse' Features

can use conditionMessage() method in subclasses of rlang errors

Code
  cat_line(interactive)
Output
  Error in `h()`:
  ! dispatched!
  Run `rlang::last_trace()` to see where the error occurred.
  Execution halted
Code
  cat_line(non_interactive)
Output
  Error in `h()`:
  ! dispatched!
  Backtrace:
      x
   1. \-global f()
   2.   \-global g()
   3.     \-global h()
   4.       \-rlang::abort("", "foobar_error")
  Execution halted

rlang_error.print() calls cnd_message() methods

Code
  print(err)
Output
  <error/foobar>
  Error in `h()`:
  ! Low-level message
  ---
  Backtrace:
       x
    1. +-rlang:::catch_error(f())
    2. | \-rlang::catch_cnd(expr, "error")
    3. |   +-rlang::eval_bare(...)
    4. |   +-base::tryCatch(...)
    5. |   | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
    6. |   |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    7. |   |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
    8. |   \-base::force(expr)
    9. \-rlang (local) f()
   10.   \-rlang (local) g()
   11.     \-rlang (local) h()

Overlapping backtraces are printed separately

Code
  print(err)
Output
  <error/rlang_error>
  Error in `c()`:
  ! High-level message
  Caused by error in `h()`:
  ! Low-level message
  ---
  Backtrace:
       x
    1. +-rlang:::catch_error(a())
    2. | \-rlang::catch_cnd(expr, "error")
    3. |   +-rlang::eval_bare(...)
    4. |   +-base::tryCatch(...)
    5. |   | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
    6. |   |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    7. |   |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
    8. |   \-base::force(expr)
    9. \-rlang (local) a()
   10.   \-rlang (local) b()
   11.     \-rlang (local) c()
   12.       +-base::tryCatch(...)
   13.       | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
   14.       |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15.       |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
   16.       \-rlang (local) f()
   17.         \-rlang (local) g()
   18.           \-rlang (local) h()

Code
  print(err, simplify = "none")
Output
  <error/rlang_error>
  Error in `c()`:
  ! High-level message
  Caused by error in `h()`:
  ! Low-level message
  ---
  Backtrace:
       x
    1. +-rlang:::catch_error(a())
    2. | \-rlang::catch_cnd(expr, "error")
    3. |   +-rlang::eval_bare(...)
    4. |   +-base::tryCatch(...)
    5. |   | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
    6. |   |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    7. |   |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
    8. |   \-base::force(expr)
    9. \-rlang (local) a()
   10.   \-rlang (local) b()
   11.     \-rlang (local) c()
   12.       +-base::tryCatch(...)
   13.       | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
   14.       |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15.       |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
   16.       \-rlang (local) f()
   17.         \-rlang (local) g()
   18.           \-rlang (local) h()

Code
  # Full
  print(trace, simplify = "none", dir = dir, srcrefs = srcrefs)
Output
  <error/rlang_error>
  Error in `c()`:
  ! High-level message
  Caused by error in `h()`:
  ! Low-level message
  ---
  Backtrace:
       x
    1. +-rlang:::catch_error(a())
    2. | \-rlang::catch_cnd(expr, "error")
    3. |   +-rlang::eval_bare(...)
    4. |   +-base::tryCatch(...)
    5. |   | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
    6. |   |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    7. |   |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
    8. |   \-base::force(expr)
    9. \-rlang (local) a()
   10.   \-rlang (local) b()
   11.     \-rlang (local) c()
   12.       +-base::tryCatch(...)
   13.       | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
   14.       |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15.       |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
   16.       \-rlang (local) f()
   17.         \-rlang (local) g()
   18.           \-rlang (local) h()
Code
  # Focused
  print_focused_trace(trace, dir = dir, srcrefs = srcrefs)
Output
  <error/rlang_error>
  Error in `c()`:
  ! High-level message
  Caused by error in `h()`:
  ! Low-level message
  ---
  Backtrace:
       x
    1. +-rlang:::catch_error(a())
    2. | <<\-rlang::catch_cnd(expr, "error")>>
    3. |   <<+-rlang::eval_bare(...)>>
    4. |   <<+-base::tryCatch(...)>>
    5. |   <<| \-base (local) tryCatchList(expr, classes, parentenv, handlers)>>
    6. |   <<|   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])>>
    7. |   <<|     \-base (local) doTryCatch(return(expr), name, parentenv, handler)>>
    8. |   <<\-base::force(expr)>>
    9. \-rlang (local) a()
   10.   \-rlang (local) b()
   11.     \-rlang (local) c()
   12.       +<<-base::tryCatch(...)>>
   13.       | <<\-base (local) tryCatchList(expr, classes, parentenv, handlers)>>
   14.       |   <<\-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])>>
   15.       |     <<\-base (local) doTryCatch(return(expr), name, parentenv, handler)>>
   16.       \-rlang (local) f()
   17.         \-rlang (local) g()
   18.           \-rlang (local) h()
Code
  # Branch
  print(trace, simplify = "branch", dir = dir, srcrefs = srcrefs)
Output
  <error/rlang_error>
  Error in `c()`:
  ! High-level message
  Caused by error in `h()`:
  ! Low-level message
  ---
  Backtrace:
    1. rlang:::catch_error(a())
    9. rlang (local) a()
   10. rlang (local) b()
   11. rlang (local) c()
   16. rlang (local) f()
   17. rlang (local) g()
   18. rlang (local) h()

3-level ancestry works (#1248)

Code
  catch_error(high())
Output
  <error/high>
  Error in `high()`:
  ! High-level
  Caused by error in `mid()`:
  ! Mid-level
  Caused by error in `low()`:
  ! Low-level

summary.rlang_error() prints full backtrace

Code
  summary(err)
Output
  <error/rlang_error>
  Error in `c()`:
  ! The high-level error message
  Caused by error in `h()`:
  ! The low-level error message
  ---
  Backtrace:
       x
    1. +-rlang:::catch_error(a())
    2. | \-rlang::catch_cnd(expr, "error")
    3. |   +-rlang::eval_bare(...)
    4. |   +-base::tryCatch(...)
    5. |   | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
    6. |   |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    7. |   |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
    8. |   \-base::force(expr)
    9. \-rlang (local) a()
   10.   +-base::tryCatch(b())
   11.   | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
   12.   \-rlang (local) b()
   13.     \-rlang (local) c()
   14.       +-base::withCallingHandlers(f(), error = handler)
   15.       \-rlang (local) f()
   16.         +-base::tryCatch(g())
   17.         | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
   18.         \-rlang (local) g()
   19.           \-rlang (local) h()

don't print message or backtrace fields if empty

Code
  print(err)
Output
  <error/foo>

base parent errors are printed with rlang method

Code
  print(rlang_err)
Output
  <error/bar>
  Error:
  ! baz
  Caused by error:
  ! foo

errors are printed with call

Code
  print(err)
Output
  <error/rlang_error>
  Error in `foo()`:
  ! msg

calls are consistently displayed on rethrow (#1240)

Code
  (expect_error(with_context(base_problem(), "step_dummy")))
Output
  <error/rlang_error>
  Error in `step_dummy()`:
  ! Problem while executing step.
  Caused by error in `base_problem()`:
  ! oh no!
Code
  (expect_error(with_context(rlang_problem(), "step_dummy")))
Output
  <error/rlang_error>
  Error in `step_dummy()`:
  ! Problem while executing step.
  Caused by error in `rlang_problem()`:
  ! oh no!

external backtraces are displayed (#1098)

Code
  print(err)
Output
  <error/rlang_error>
  Error in `baz()`:
  ! High-level message
  Caused by error in `h()`:
  ! Low-level message
  ---
  Backtrace:
      x
   1. \-quux()
   2.   \-foofy()
Code
  summary(err)
Output
  <error/rlang_error>
  Error in `baz()`:
  ! High-level message
  Caused by error in `h()`:
  ! Low-level message
  ---
  Backtrace:
      x
   1. \-quux()
   2.   \-foofy()

rethrowing from an exiting handler

Code
  # Full
  print(trace, simplify = "none", dir = dir, srcrefs = srcrefs)
Output
  <error/rlang_error>
  Error in `baz()`:
  ! bar
  Caused by error in `h()`:
  ! foo
  ---
  Backtrace:
       x
    1. +-rlang::catch_cnd(foo(), "error")
    2. | +-rlang::eval_bare(...)
    3. | +-base::tryCatch(...)
    4. | | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
    5. | |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    6. | |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
    7. | \-base::force(expr)
    8. \-rlang (local) foo()
    9.   \-rlang (local) bar()
   10.     \-rlang (local) baz()
   11.       +-base::tryCatch(f(), error = function(err) abort("bar", parent = err))
   12.       | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       \-rlang (local) f()
   16.         \-rlang (local) g()
   17.           \-rlang (local) h()
Code
  # Focused
  print_focused_trace(trace, dir = dir, srcrefs = srcrefs)
Output
  <error/rlang_error>
  Error in `baz()`:
  ! bar
  Caused by error in `h()`:
  ! foo
  ---
  Backtrace:
       x
    1. +-rlang::catch_cnd(foo(), "error")
    2. | <<+-rlang::eval_bare(...)>>
    3. | <<+-base::tryCatch(...)>>
    4. | <<| \-base (local) tryCatchList(expr, classes, parentenv, handlers)>>
    5. | <<|   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])>>
    6. | <<|     \-base (local) doTryCatch(return(expr), name, parentenv, handler)>>
    7. | <<\-base::force(expr)>>
    8. \-rlang (local) foo()
    9.   \-rlang (local) bar()
   10.     \-rlang (local) baz()
   11.       +<<-base::tryCatch(f(), error = function(err) abort("bar", parent = err))>>
   12.       | <<\-base (local) tryCatchList(expr, classes, parentenv, handlers)>>
   13.       |   <<\-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])>>
   14.       |     <<\-base (local) doTryCatch(return(expr), name, parentenv, handler)>>
   15.       \-rlang (local) f()
   16.         \-rlang (local) g()
   17.           \-rlang (local) h()
Code
  # Branch
  print(trace, simplify = "branch", dir = dir, srcrefs = srcrefs)
Output
  <error/rlang_error>
  Error in `baz()`:
  ! bar
  Caused by error in `h()`:
  ! foo
  ---
  Backtrace:
    1. rlang::catch_cnd(foo(), "error")
    8. rlang (local) foo()
    9. rlang (local) bar()
   10. rlang (local) baz()
   15. rlang (local) f()
   16. rlang (local) g()
   17. rlang (local) h()

bare conditions must be subclassed

Code
  (expect_error(cnd()))
Output
  <error/rlang_error>
  Error in `cnd()`:
  ! `class` is absent but must be supplied.
Code
  (expect_error(signal("")))
Output
  <error/rlang_error>
  Error in `signal()`:
  ! `class` is absent but must be supplied.

cnd_type_header() formats condition classes

Code
  cnd_type_header(error_cnd())
Output
  [1] "<error/rlang_error>"
Code
  cnd_type_header(warning_cnd())
Output
  [1] "<warning/rlang_warning>"
Code
  cnd_type_header(message_cnd())
Output
  [1] "<message/rlang_message>"
Code
  cnd_type_header(error_cnd(class = "foobar"))
Output
  [1] "<error/foobar>"

can format warnings and other conditions

<warning/rlang_warning>
Warning in `quux()`:
Header.
i Bullet.
---
Backtrace:
    x
 1. \-foo()
 2.   \-bar()

<message/rlang_message>
Message in `quux()`:
Header.
i Bullet.
Caused by warning in `quux()`:
! Header.
i Bullet.
---
Backtrace:
    x
 1. \-foo()
 2.   \-bar()

<condition/foobar>
Condition in `quux()`:
Header.
i Bullet.
---
Backtrace:
    x
 1. \-foo()
 2.   \-bar()

warnings and messages have summary() methods

Code
  print(warning)
Output
  <warning/rlang_warning>
  ---
  Backtrace:
      x
   1. \-f()
   2.   \-g()
Code
  print(message)
Output
  <message/rlang_message>
  ---
  Backtrace:
      x
   1. \-f()
   2.   \-g()
Code
  summary(warning)
Output
  <warning/rlang_warning>
  ---
  Backtrace:
      x
   1. \-f()
   2.   \-g()
Code
  summary(message)
Output
  <message/rlang_message>
  ---
  Backtrace:
      x
   1. \-f()
   2.   \-g()

cnd ctors check arguments

Code
  warning_cnd(class = list())
Condition <rlang_error>
  Error in `warning_cnd()`:
  ! `class` must be a character vector, not a list.
Code
  error_cnd(class = list())
Condition <rlang_error>
  Error in `error_cnd()`:
  ! `class` must be a character vector, not a list.
Code
  message_cnd(message = 1)
Condition <rlang_error>
  Error in `message_cnd()`:
  ! `message` must be a character vector, not the number 1.

picks up cli format flag

Code
  cnd_signal(error_cnd(message = c("foo", i = "bar")))
Condition
  Error:
  ! foo
  i bar
Code
  cnd_signal(warning_cnd(message = c("foo", i = "bar")))
Condition
  Warning:
  foo
  i bar
Code
  cnd_signal(message_cnd(message = c("foo", i = "bar")))
Message
  foo
  i bar

Code
  cnd_signal(error_cnd(message = c("foo", i = "bar")))
Condition
  Error:
  ! foo
  bar
Code
  cnd_signal(warning_cnd(message = c("foo", i = "bar")))
Condition
  Warning:
  foo
  bar
Code
  cnd_signal(message_cnd(message = c("foo", i = "bar")))
Message
  foo
  bar

tidyverse/rlang documentation built on Oct. 31, 2024, 5:35 p.m.