removing paste from message

federicomarini · Sep 12, 2024 · 746cf72 · 746cf72
1 parent 7cb49f1
commit 746cf72
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/pca2go.R b/R/pca2go.R
@@ -104,7 +104,7 @@ pca2go <- function(se,
   rv <- rowVars(exprsData)
   dropped <- sum(rv == 0)
   if (dropped > 0)
-    message(paste("Dropped", dropped, "genes with 0 variance"))
+    message("Dropped ", dropped, " genes with 0 variance")
 
   exprsData <- exprsData[rv > 0, ]
 
@@ -356,7 +356,7 @@ limmaquickpca2go <- function(se,
   rv <- rowVars(exprsData)
   dropped <- sum(rv == 0)
   if (dropped > 0)
-    message(paste("Dropped", dropped, "genes with 0 variance"))
+    message("Dropped ", dropped, " genes with 0 variance")
 
   exprsData <- exprsData[rv > 0, ]