# NOT RUN {
ft <- flextable(head(mtcars))
ft <- color(ft, color = "orange", part = "header")
ft <- color(ft, color = "red",
i = ~ qsec < 18 & vs < 1 )
ft
if(require("scales")){
scale <- scales::col_numeric(domain= c(-1, 1), palette ="RdBu")
x <- as.data.frame(cor(iris[-5]))
x <- cbind(
data.frame(colname = colnames(x),
stringsAsFactors = FALSE),
x)
ft_2 <- flextable(x)
ft_2 <- color(ft_2, j = x$colname, color = scale)
ft_2 <- set_formatter_type(ft_2)
ft_2
}
# }
Run the code above in your browser using DataLab