From weigand.stephen at charter.net  Fri Mar 17 05:08:58 2006
From: weigand.stephen at charter.net (Stephen D. Weigand)
Date: Thu, 16 Mar 2006 22:08:58 -0600
Subject: [Rd] Wishlist: 'append' argument for write.ftable()
In-Reply-To: <68eef2d11757ede9cabf59b3f47c4320@charter.net>
References: <68eef2d11757ede9cabf59b3f47c4320@charter.net>
Message-ID: <c312d0eb09f5ad68a4d2941bc1b1a25a@charter.net>


On Mar 16, 2006, at 9:48 PM, Stephen D. Weigand wrote:

> I would like to suggest that an 'append' argument be added to
> write.ftable().  This would allow, for example, the user to
> append ftable() output to a text report.
>
> I have attached an svn patch to ftable.R that makes the proposed
> change to write.ftable(). [A very trivial change since 'append'
> is simply passed to cat().]
>
> I have also attached a patch to read.ftable.Rd which documents
> the proposed argument (borrowing from cat.Rd).

The text-based patch files were attached but had extensions *.patch.
I'm resending them with *.txt extensions in case that's necessary.
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: ftable.R.patch.txt
Url: https://stat.ethz.ch/pipermail/r-devel/attachments/20060316/ba57404f/ftable.R.patch.txt
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: read.ftable.Rd.patch.txt
Url: https://stat.ethz.ch/pipermail/r-devel/attachments/20060316/ba57404f/read.ftable.Rd.patch.txt
-------------- next part --------------

As a backup, the patches are in-line below.
Thanks again,
Stephen


Index: R/src/library/stats/R/ftable.R
===================================================================
--- R/src/library/stats/R/ftable.R      (revision 37549)
+++ R/src/library/stats/R/ftable.R      (working copy)
@@ -151,7 +151,7 @@
      x
  }

-write.ftable <- function(x, file = "", quote = TRUE,
+write.ftable <- function(x, file = "", append = FALSE, quote = TRUE,
                           digits = getOption("digits"))
  {
      if(!inherits(x, "ftable"))
@@ -191,7 +191,8 @@
                    format(unclass(x), digits = digits))
      x <- cbind(apply(LABS, 2, format, justify = "left"),
                 apply(DATA, 2, format, justify = "right"))
-    cat(t(x), file = file, sep = c(rep(" ", ncol(x) - 1), "\n"))
+    cat(t(x), file = file, append = append,
+        sep = c(rep(" ", ncol(x) - 1), "\n"))
      invisible(ox)
  }

Index: R/src/library/stats/man/read.ftable.Rd
===================================================================
--- R/src/library/stats/man/read.ftable.Rd      (revision 37549)
+++ R/src/library/stats/man/read.ftable.Rd      (working copy)
@@ -31,6 +31,10 @@
    \item{skip}{the number of lines of the data file to skip before
      beginning to read data.}
    \item{x}{an object of class \code{"ftable"}.}
+  \item{append}{logical.  If \code{TRUE} and \code{file} is the name of
+    a file (and not a connection or \code{"|cmd"}), the output from
+    \code{write.ftable} is appended to the file.  If \code{FALSE},
+    the contents of \code{file} will be overwritten.}
    \item{digits}{an integer giving the number of significant digits to
      use for (the cell entries of) \code{x}.}
    \item{\dots}{further arguments to be passed to or from methods.}


[Rd] Wishlist: 'append' argument for write.ftable()
Stephen D. Weigand