In CheckReporter, only show repeated summary if needed

Part of #1543

Author: hadley

R/reporter-check.R

@@ -35,13 +35,15 @@ CheckReporter <- R6::R6Class("CheckReporter",
     },
 
     end_reporter = function() {
-      self$cat_line(summary_line(
-        n_fail = self$problems$size(),
-        n_warn = self$warnings$size(),
-        n_skip = self$skips$size(),
-        n_pass = self$n_ok
-      ))
-      self$cat_line()
+      if (self$skips$size() || self$warnings$size() || self$problems$size()) {
+        self$cat_line(summary_line(
+          n_fail = self$problems$size(),
+          n_warn = self$warnings$size(),
+          n_skip = self$skips$size(),
+          n_pass = self$n_ok
+        ))
+        self$cat_line()
+      }
 
       if (self$skips$size() > 0) {
         self$rule("Skipped tests", line = 2)

tests/testthat/_snaps/reporter-check.md

@@ -52,8 +52,6 @@
 # always shows summary
 
     [ FAIL 0 | WARN 0 | SKIP 0 | PASS 7 ]
-    
-    [ FAIL 0 | WARN 0 | SKIP 0 | PASS 7 ]
 
 # shows warnings when not on CRAN