simplifyArtifactData: use comma-delimited flagged peiids

ncss-tech · Apr 11, 2024 · 9775b5c · 9775b5c
1 parent 9941932
commit 9775b5c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/simplifyArtifactData.R b/R/simplifyArtifactData.R
@@ -105,7 +105,7 @@ simplifyArtifactData <- function(art, id.var, vol.var = "huartvol", nullFragsAre
     idx <- unique(unlist(lapply(gt.100[class.idx], which)))
     flagged.ids <- art.wide[[id.var]][idx]
 
-    message(sprintf("NOTE: artifact volume >= 100%% in %s: %s", id.var, paste(flagged.ids, collapse = "\n")))
+    message(sprintf("NOTE: artifact volume >= 100%% in %s: %s", id.var, paste(flagged.ids, collapse = ",")))
   }
 
   # compute total artifacts