if (requireNamespace("kableExtra") &&
(!requireNamespace("pkgdown") || !pkgdown::in_pkgdown())) {
tab <- tabular( (Species + 1) ~ (n=1) + Format(digits=2)*
(Sepal.Length + Sepal.Width)*(mean + sd), data=iris )
print(kableExtra::kable_styling(toKable(tab), latex_options = "striped"))
cat("\n")
toKable(tab, format = "html", options = list(HTMLcaption = "Fisher's iris data"))
}
Run the code above in your browser using DataLab