Add some new logging functions
authorPaul Hoffman <phoffman@nygenome.org>
Wed, 3 Jan 2018 22:46:50 +0000 (17:46 -0500)
committerPaul Hoffman <phoffman@nygenome.org>
Wed, 3 Jan 2018 22:46:50 +0000 (17:46 -0500)
R/internal.R

index 1b7d8ac9b8e189da51aa20668f498f5aff395b0a..d5211aa28dd9435714c196aaf3c4d9eeb5d1095f 100644 (file)
@@ -309,3 +309,19 @@ addCells.col_attrs <- function(x, m2) {
 #' @importFrom utils txtProgressBar
 #
 new.pb <- function() {return(txtProgressBar(style = 3, char = '='))}
+
+# Cat with a new line
+#
+# @param ... Text to be output
+#
+catn <- function(...) {
+  cat(..., '\n')
+}
+
+# Cat to stderr
+#
+# @param ... Text to be output
+#
+cate <- function(...) {
+  catn(..., file = stderr())
+}