Merge pull request #132 from JoshuaSturm/print_description_assert_errors

Print description in assert error summary
tonyfischetti · Apr 11, 2024 · e484665 · e484665
2 parents b4536a0 + 5acd465
commit e484665
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/NEWS b/NEWS
@@ -1,5 +1,7 @@
 # assertr development version
 
+* Assert errors now print the description in the error summary (PR #132)
+
 * Added the ability to check non-numeric classes with `within_bounds()`
   (fix #89)
 

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)