Adding support for ftable objects---still incomplete

[xtable.git] / pkg / R / xtableList.R

diff --git a/pkg/R/xtableList.R b/pkg/R/xtableList.R
index 10b2f26b2684beab28ddaa216a261d0385af58b6..775d5c75ab24ef25bb5b11fa2cd3597fa1810a9f 100644 (file)
--- a/pkg/R/xtableList.R
+++ b/pkg/R/xtableList.R
@@ -61,6 +61,7 @@ print.xtableList <- function(x,
     getOption("xtable.sanitize.message.function",\r
               sanitize.text.function),\r
   math.style.negative = getOption("xtable.math.style.negative", FALSE),\r
+  math.style.exponents = getOption("xtable.math.style.exponents", FALSE),\r
   html.table.attributes = getOption("xtable.html.table.attributes", "border=1"),\r
   print.results = getOption("xtable.print.results", TRUE),\r
   format.args = getOption("xtable.format.args", NULL),\r
@@ -192,6 +193,7 @@ print.xtableList <- function(x,
                  sanitize.rownames.function = sanitize.rownames.function,\r
                  sanitize.colnames.function = sanitize.colnames.function,\r
                  math.style.negative = math.style.negative,\r
+                 math.style.exponents = math.style.exponents,\r
                  html.table.attributes = html.table.attributes,\r
                  print.results = print.results,\r
                  format.args = format.args,\r