diff --git a/R/cnd-message.R b/R/cnd-message.R index 2e3771bcc3..d0a8230889 100644 --- a/R/cnd-message.R +++ b/R/cnd-message.R @@ -298,6 +298,16 @@ on_load({ # to `cnd_message()` NextMethod() }) + + s3_register("knitr::knit_cnd_format", "rlang_message", function(cnd) { + cnd_message(cnd, prefix = FALSE) + }) + s3_register("knitr::knit_cnd_format", "rlang_warning", function(cnd) { + cnd_message(cnd, prefix = TRUE) + }) + s3_register("knitr::knit_cnd_format", "rlang_error", function(cnd) { + cnd_message(cnd, prefix = TRUE) + }) }) #' Format bullets for error messages diff --git a/tests/testthat/_snaps/cnd-abort.md b/tests/testthat/_snaps/cnd-abort.md index 2d4898fe17..8a2f22c2ea 100644 --- a/tests/testthat/_snaps/cnd-abort.md +++ b/tests/testthat/_snaps/cnd-abort.md @@ -509,7 +509,8 @@ call = call("f") ) - ## Warning in f(): Message. + ## Warning in `f()`: + ## Message. ## x Bullet A ## i Bullet B. ## Caused by error in `foo()`: