more informative message

philchalmers · Aug 1, 2024 · a53982e · a53982e
1 parent a103439
commit a53982e
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/SimCollect.R b/R/SimCollect.R
@@ -180,8 +180,13 @@ SimCollect <- function(files = NULL, filename = NULL,
     if(!length(nmsw)) nmsw <- 'WARNINGS'
     readin <- lapply(readin, function(x) x[ ,!(
         grepl('ERROR', colnames(x)) | grepl('WARNINGS', colnames(x))), drop=FALSE])
-    if(length(unique(sapply(readin, ncol))) > 1L)
-        stop('Number of columns in the replications not equal')
+    if(length(unique(sapply(readin, ncol))) > 1L){
+        tab <- table(sapply(readin, ncol))
+        pick <- filenames[as.integer(names(which.min(tab))) == sapply(readin, ncol)]
+        stop(sprintf(c('Number of columns not equal. ',
+                     'The following files had the fewest columns:\n%s'),
+                     paste0(pick, collapse=', ')))
+    }
     Design.ID <- sapply(readin, \(x) SimExtract(x, 'Design.ID'))
     if(is.matrix(Design.ID)){
         set.index <- rep(1L, ncol(Design.ID))