[Rd] Wishlist: 'append' argument for write.ftable()
Stephen D. Weigand
weigand.stephen at charter.net
Fri Mar 17 05:08:58 CET 2006
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.}
More information about the R-devel
mailing list