Stephen D. Weigand
2006-Mar-17 03:48 UTC
[Rd] Wishlist: 'append' argument for write.ftable()
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). Thanks for considering this, Stephen -- Stephen Weigand Rochester, Minnesota, USA
Stephen D. Weigand
2006-Mar-17 04:08 UTC
[Rd] Wishlist: 'append' argument for write.ftable()
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.}