use cat_reports

r-lib · Jan 25, 2016 · 6369008 · 6369008
1 parent 646eb59
commit 6369008
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/reporter-summary.r b/R/reporter-summary.r
@@ -82,10 +82,7 @@ SummaryReporter <- setRefClass("SummaryReporter", contains = "Reporter",
 
         if (length(skips) > 0L) {
           cat(colourise("\nSkip:", "skipped"), "\n\n")
-          reports <- vapply(seq_along(skips), function(i) {
-            skip_summary(skips[[i]], labels[i])
-          }, character(1L))
-          cat(paste(reports, collapse = "\n"), "\n", sep = "")
+          cat_reports(skips, skip_summary, "\n")
         }
 
         cat("\n")