Tweaks to catn
authorPaul Hoffman <phoffman@nygenome.org>
Wed, 14 Mar 2018 17:55:04 +0000 (13:55 -0400)
committerPaul Hoffman <phoffman@nygenome.org>
Wed, 14 Mar 2018 17:55:04 +0000 (13:55 -0400)
R/internal.R

index 2bbe014dd6aa924b56df25a65fd792513d5d7c68..1521bd0b386043ae4cbb39313405c6e2ed09138b 100644 (file)
@@ -396,7 +396,16 @@ new.pb <- function() {
 # @param ... Text to be output
 #
 catn <- function(...) {
-  cat(..., '\n')
+  x = list(...)
+  if (length(x = x)) {
+    if (!is.null(x = names(x = x)) && length(x = x) == 1 && names(x = x) == 'file') {
+      cat(...)
+    } else {
+      cat(..., '\n')
+    }
+  } else {
+    cat()
+  }
 }
 
 # Cat to stderr