Merge pull request #132 from JoshuaSturm/print_description_assert_errors

Print description in assert error summary

Author: tonyfischetti

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)
 

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)