Issue #2246: Add way to exclude timestamp.

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

diff --git a/pkg/R/print.xtable.R b/pkg/R/print.xtable.R
index 80d2edd5c90216d2531469b2c43cd0c5029cc96f..c0cce93ef7f9a2a37050769bf1b71e3a141a4fc2 100644 (file)
--- a/pkg/R/print.xtable.R
+++ b/pkg/R/print.xtable.R
@@ -52,6 +52,7 @@ print.xtable <- function(x,
   booktabs = getOption("xtable.booktabs", FALSE),\r
   scalebox = getOption("xtable.scalebox", NULL),\r
   width = getOption("xtable.width", NULL),\r
+  timestamp = date(),\r
   ...)\r
 {\r
     ## If caption is length 2, treat the second value as the "short caption"\r
@@ -180,9 +181,8 @@ print.xtable <- function(x,
                             "margintable"))))) {\r
         stop("\"type\" must be in {\"table\", \"table*\", \"sidewaystable\", \"margintable\"}")\r
     }\r
-    if ((match(floating.environment,\r
-              c("table","table*","sidewaystable","margintable"))\r
-        == "margintable") & (!is.null(table.placement))) {\r
+    if (("margintable" %in% floating.environment)\r
+        & (!is.null(table.placement))) {\r
         warning("margintable does not allow for table placement; setting table.placement to NULL")\r
         table.placement <- NULL\r
     }\r
@@ -440,7 +440,9 @@ print.xtable <- function(x,
               info$language + " " + info$major + "." + info$minor +\r
               " by xtable " +  packageDescription('xtable')$Version +\r
               " package" + ECOMMENT\r
-    result <- result + BCOMMENT + date() + ECOMMENT\r
+    if (!is.null(timestamp)){            \r
+        result <- result + BCOMMENT + timestamp + ECOMMENT\r
+    }          \r
     ## Claudio Agostinelli <claudio@unive.it> dated 2006-07-28 only.contents\r
     if (!only.contents) {\r
         result <- result + BTABLE\r