messaging was off - function was fine

muschellij2 · Mar 31, 2021 · 9d8c9d3 · 9d8c9d3
1 parent 79e23d2
commit 9d8c9d3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/staple_multi_mat.R b/R/staple_multi_mat.R
@@ -74,7 +74,7 @@ staple_multi_mat = function(
     not_all_same = rep(TRUE, ncol(x))
   }
 
-  if (verbose) {
+  if (verbose && drop_all_same) {
     message("Removing elements where all raters agree")
   }
   xsame = x[, !not_all_same]