In CheckReporter, also display summary at top (#1543)

This is useful when look at the full results in CI

Author: hadley

R/reporter-check.R

@@ -35,6 +35,14 @@ 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() > 0) {
         self$rule("Skipped tests", line = 2)
         self$cat_line(skip_bullets(self$skips$as_list()))

tests/testthat/_snaps/reporter-check.md

@@ -1,5 +1,7 @@
 # basic report works
 
+    [ FAIL 4 | WARN 1 | SKIP 3 | PASS 1 ]
+    
     == Skipped tests ===============================================================
     * empty test (2)
     * skip (1)
@@ -39,6 +41,8 @@
 
 # doesn't truncate long lines
 
+    [ FAIL 1 | WARN 0 | SKIP 0 | PASS 0 ]
+    
     == Failed tests ================================================================
     -- Failure (long-test.R:2:3): That very long test messages are not truncated because they contain useful information that you probably want to read --
     Failure has been forced
@@ -48,9 +52,13 @@
 # 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
 
+    [ FAIL 4 | WARN 1 | SKIP 3 | PASS 1 ]
+    
     == Skipped tests ===============================================================
     * empty test (2)
     * skip (1)