Don't include xtable comment in renderTable by default

Author: wch

NEWS.md

@@ -25,6 +25,8 @@ shiny 1.0.3.9001
 
 * Added new `snapshotPreprocess()` function, which is used for preprocessing output values before taking a test snapshot. ([#1760](https://github.com/rstudio/shiny/pull/1760))
 
+* The HTML generated by `renderTable()` no longer includes comments with the R version, xtable version, and timestamp. ([#1771](https://github.com/rstudio/shiny/pull/1771))
+
 ### Bug fixes
 
 * Fixed [#1546](https://github.com/rstudio/shiny/issues/1546): make it possible (without any hacks) to write arbitrary data into a module's `session$userData` (which is exactly the same environment as the parent's `session$userData`). To be clear, it allows something like `session$userData$x <- TRUE`, but not something like `session$userData <- TRUE` (that is not allowed in any context, whether you're in the main app, or in a module) ([#1732](https://github.com/rstudio/shiny/pull/1732)).

R/render-table.R

@@ -176,7 +176,12 @@ renderTable <- function(expr, striped = FALSE, hover = FALSE,
           else ""
         }, " ",
         "class = '", htmlEscape(classNames, TRUE), "' ",
-        "style = 'width:", validateCssUnit(width), ";'"))
+        "style = 'width:", validateCssUnit(width), ";'"),
+      comment = {
+        if ("comment" %in% names(dots)) dots$comment
+        else FALSE
+      }
+    )
 
     print_args <- c(print_args, non_xtable_args)
     print_args <- print_args[unique(names(print_args))]