Devel

R/scriptSkeleton.R

@@ -1,14 +1,14 @@
 #' Generate a Rscript with its skeleton
 #'
-#' @param file Output file. By default the function writes to standard output.
+#' @param file Output file. Use `file=stdout()` to write the output to standard output.
 #'
 #' @return Invisibly returns the character vector of skeleton lines.
 #'   Called for its side effect of writing to \code{file}.
 #' @export
 #' @examples
 #' scriptSkeleton(file = file.path(tempdir(), "myscript.R"))
 
-scriptSkeleton <- function(file=stdout()) {
+scriptSkeleton <- function(file) {
     sentences <- c("#!/usr/bin/env Rscript",
                    "",
                    "# Initialize the script",
@@ -34,6 +34,8 @@ scriptSkeleton <- function(file=stdout()) {
                    "doLog(\"%s quits\", scriptName())",
                    "qqmsg(status=0L)",
                    sep="\n")
-    writeLines(text=sentences, con=file, sep="\n")
+    if(!missing(file)) {
+        writeLines(text=sentences, con=file, sep="\n")
+    }
     return(invisible(sentences))
 }