From ffc100923768afb32fd4be0a77c851a01c72503d Mon Sep 17 00:00:00 2001 From: Michael Schubert Date: Wed, 21 Aug 2024 08:54:14 +0000 Subject: [PATCH] flatten warnings before printing --- R/summarize_result.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/summarize_result.r b/R/summarize_result.r index 13e071e..6cb5be0 100644 --- a/R/summarize_result.r +++ b/R/summarize_result.r @@ -13,7 +13,7 @@ summarize_result = function(result, n_errors, n_warnings, cond_msgs$errors = cond_msgs$errors[order(as.integer(names(cond_msgs$errors)))] cond_msgs$warnings = cond_msgs$warnings[order(as.integer(names(cond_msgs$warnings)))] cond_msgs = utils::head(c(cond_msgs$errors, cond_msgs$warnings), 50) - detail = paste(cond_msgs, collapse="\n") + detail = paste(unlist(cond_msgs), collapse="\n") if (n_errors > 0) { msg = sprintf("%i/%i jobs failed (%i warnings)", n_errors, at, n_warnings)