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 2f875b0f54860634f4b54cfaa30f9b7f75f70499..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
@@ -439,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