In thebioengineer/colortable: Provide Color and Styling to Table Elements

library(tidyverse)
library(colortable)
library(knitr)

## Super Great analysis of mtcars!

lm_fit <- lm(mpg ~ ., mtcars)

a_lm_fit <- anova(lm_fit)

tbl_anova <- a_lm_fit %>% 
  as_tibble()%>% 
  mutate(
    Coef     = rownames(a_lm_fit),
    `Pr(>F)` = set_styling(`Pr(>F)`, `Pr(>F)` < 0.05, background = "green", style = "underline"),
    `Pr(>F)` = set_styling(`Pr(>F)`, is.na(`Pr(>F)`), style = "strikethrough"),
    `F value` = set_styling(`F value`, is.na(`F value`), style = "strikethrough")
  ) %>% 
  select(Coef, everything())

cat("\\newpage")

kable(tbl_anova, escape = FALSE)