Print description in assert error summary

tonyfischetti · Apr 4, 2024 · 46a5b13 · 46a5b13
1 parent b4536a0
commit 46a5b13
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/errors.R b/R/errors.R
@@ -148,6 +148,10 @@ print.assertr_defect <- function(x, ...){
 #'
 #' @export
 summary.assertr_assert_error <- function(object, ...){
+  if (!is.na(object$description)) {
+    cat(object$description)
+    cat("\n")
+  }
   cat(object$message)
   cat("\n")
   numrows <- nrow(object$error_df)