if (requireNamespace("tinytable")) {
tab <- tabular( (Species + 1) ~ (n=1) + Format(digits=2)*
(Sepal.Length + Sepal.Width)*(mean + sd), data=iris )
tab <- toTinytable(tab, theme = "striped")
tab <- tinytable::style_tt(tab, i = 1:2, background = "teal", color = "white")
tab
}
Run the code above in your browser using DataLab