tab <- tabular( (Species + 1) ~ (n=1) + Format(digits=2)*
(Sepal.Length + Sepal.Width)*(mean + sd), data=iris )
footnote <- HTMLfootnotes(tab,
"This is a footnote with no marker.",
"*" = "This is a footnote with an asterisk.")
if (interactive())
toHTML(tab, options = list(doFooter = TRUE,
HTMLfooter = footnote))
Run the code above in your browser using DataLab