From 17f77e9c3e2a71a31b213d3accae1df5d03ff35d Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Wed, 1 May 2024 23:07:24 -0700 Subject: [PATCH] Multiple observed warnings combined in display --- R/test.data.table.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/test.data.table.R b/R/test.data.table.R index 7f6a9fafc..c040b2ee0 100644 --- a/R/test.data.table.R +++ b/R/test.data.table.R @@ -445,7 +445,7 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no } if (length(expected) != length(observed)) { # nocov start - catf("Test %s produced %d %ss but expected %d\n%s\n%s\n", numStr, length(observed), type, length(expected), paste("Expected:", expected), paste("Observed:", observed)) + catf("Test %s produced %d %ss but expected %d\n%s\n%s\n", numStr, length(observed), type, length(expected), paste("Expected:", expected), paste("Observed:", observed, collapse = "\n")) fail = TRUE # nocov end } else {