functions.R edited online with Bitbucket

PelzKo · Sep 9, 2021 · 6afba3c · 6afba3c
1 parent 1f2a649
commit 6afba3c
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/R/functions.R b/R/functions.R
@@ -693,3 +693,19 @@ buildSignatureMatrixMAST <- function(scdata,
 
   return(Sig)
 }
+
+#' A wrapper function whether to suppress messages
+#'
+#' @param verbose Whether to produce an output on the console.
+#'
+#' @return A function which will suppress messages or not, depending on the verbose parameter
+#'
+verbose_wrapper <- function(verbose) {
+  return(function(method) {
+    if (!verbose) {
+      suppressMessages(method)
+    } else {
+      method
+    }
+  })
+}