Fixes bug in previous fix, documents use of table args in ftable.

git-svn-id: https://svn.r-project.org/R/trunk@28250 00db46b3-68df-0310-9c12-caf00c1e9a41

src/library/stats/R/ftable.R

@@ -12,9 +12,7 @@ ftable.default <- function(..., exclude = c(NA, NaN),
         x <- as.table(x)
     }
     else if(!(is.array(x) && (length(dim(x)) > 1))) {
-	names(args) <- as.character(unlist(as.list(substitute(list(...)))))[-1]
-        x <- do.call("table",
-                     c(args, list(exclude = exclude)))
+        x <- table(..., exclude = exclude)
     }
     dn <- dimnames(x)
     dx <- dim(x)

src/library/stats/man/ftable.Rd

@@ -59,6 +59,10 @@ ftable(x, \dots)
   given and their union is a proper subset of all variables involved,
   the other variables are summed out.
 
+  When the arguments are \R expressions interpreted as factors,
+  additional arguments will be passed to \code{table} to control how
+  the variable names are displayed; see the last example below.
+
   Function \code{\link{ftable.formula}} provides a formula method for
   creating flat contingency tables.
 }
@@ -82,5 +86,9 @@ data(mtcars)
 x <- ftable(mtcars[c("cyl", "vs", "am", "gear")])
 x
 ftable(x, row.vars = c(2, 4))
-}
+
+## Start with expressions, use table()'s "dnn" to change labels
+ftable(mtcars$cyl, mtcars$vs, mtcars$am, mtcars$gear, row.vars = c(2, 4), 
+       dnn = c("Cylinders", "V/S", "Transmission", "Gears"))
+ }
 \keyword{category}