Merge branch 'feature/cat-reports' into 234-skip-summary

r-lib · Jan 25, 2016 · 8307196 · 8307196
2 parents d553f32 + 2e7b6e3
commit 8307196
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/reporter-summary.r b/R/reporter-summary.r
@@ -106,7 +106,7 @@ SummaryReporter <- setRefClass("SummaryReporter", contains = "Reporter",
 labels <- c(1:9, letters, LETTERS)
 
 cat_reports <- function(reports, summary_fun, collapse) {
-  reports <- vapply(min(seq_along(reports), length(labels)), function(i) {
+  reports <- vapply(seq_len(min(length(reports), length(labels))), function(i) {
     summary_fun(reports[[i]], labels[i])
   }, character(1L))
   cat(paste(reports, collapse = collapse), "\n", sep = "")