As an example, I might want to use the following rule to color the cells:
(edited to un-trivialize)
Hello here a solution using function FlexTable
from package ReporteRs
. This function is intended to create Word table but you can get the html code from FlexTable objects with as.html
:
---
title: "Untitled"
output: html_document
---
```{r, results='asis', warning=FALSE, message=FALSE}
library(ReporteRs)
data(iris)
irisFT = FlexTable( iris )
vars <- c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width")
for (i in vars) {
irisFT[iris[, i] < 3, i] = cellProperties( background.color = "orange" )
irisFT[iris[, i] >= 3 & iris[, i] < 3.5, i] = cellProperties( background.color = "yellow" )
irisFT[iris[, i] > 4, i] = cellProperties( background.color = "#81DAF5" )
}
cat(as.html(irisFT))
```
For more example, please visit https://davidgohel.github.io/ReporteRs/articles/FlexTable.html