Autoprinting toHTML output also

causes CRAN issues.

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: tables
 Title: Formula-Driven Table Generation
-Version: 0.9.16
+Version: 0.9.17
 Author: Duncan Murdoch
 Description: Computes and displays complex tables of summary statistics.
   Output may be in LaTeX, HTML, plain text, or an R

NEWS.md

@@ -1,4 +1,4 @@
-# tables 0.9.16
+# tables 0.9.17
 
 - Change host to Github.
 - Add `useGroupLabels()` function.

cran-comments.md

@@ -1,3 +1,8 @@
+# tables 0.9.17
+
+It didn't fix the issue; some of the example results in \donttest sections
+were autoprinting as browsable HTML.
+
 # tables 0.9.16
 
 This version doesn't call browseURL() non-interactively

man/HTMLfootnotes.Rd

@@ -31,6 +31,7 @@ tab <- tabular( (Species + 1) ~ (n=1) + Format(digits=2)*
 footnote <- HTMLfootnotes(tab, 
                           "This is a footnote with no marker.", 
                           "*" = "This is a footnote with an asterisk.")
-toHTML(tab, options = list(doFooter = TRUE,
+if (interactive())
+  toHTML(tab, options = list(doFooter = TRUE,
                            HTMLfooter = footnote))
 }

man/html.tabular.Rd

@@ -86,24 +86,28 @@ table_options(rowlabeljustification="c")
 f <- tempfile(fileext=".html")
 con <- file(f, "wt")
 
-toHTML(tab, con, options=htmloptions(head=TRUE, table=FALSE))
+if (interactive())
+  toHTML(tab, con, options=htmloptions(head=TRUE, table=FALSE))
 
 writeLines("<p>This table has pad = FALSE.  The centered numbers look
 sloppy.<br>", con)
 
-toHTML(tab, con, options=htmloptions(head=FALSE, table=TRUE, pad=FALSE))
+if (interactive())
+  toHTML(tab, con, options=htmloptions(head=FALSE, table=TRUE, pad=FALSE))
 
 writeLines("<p>This table has pad = FALSE and justification=\"r\".
 The justification makes the columns of numbers look all right (except
 for the hyphens used as minus signs), but they are placed poorly
 relative to the labels.<br>", con)
 
-toHTML(tab, con, options=htmloptions(head=FALSE, table=TRUE, pad=FALSE, justification="r"))
+if (interactive())
+  toHTML(tab, con, options=htmloptions(head=FALSE, table=TRUE, pad=FALSE, justification="r"))
 
 writeLines("<p>This one has pad = TRUE. It looks best, but if you cut
 and paste, the spacing characters may cause problems.<br>", con)
 
-toHTML(tab, con, options=htmloptions(head=FALSE, table=TRUE, pad=TRUE))
+if (interactive())
+  toHTML(tab, con, options=htmloptions(head=FALSE, table=TRUE, pad=TRUE))
 
 table_options(save)
 close(con)

man/table_options.Rd

@@ -129,8 +129,9 @@ table_options(save)
 
 \donttest{
 f <- tempfile(fileext = ".html")
-toHTML(tab, f, 
-  options=htmloptions(HTMLcaption="Table of Iris Data",
+if (interactive())
+  toHTML(tab, f, 
+    options=htmloptions(HTMLcaption="Table of Iris Data",
                       pad = TRUE))
 }
 }