tests/visual_tests/cell_spec_pdf.Rmd

---
title: "cell_formatter_pdf"
author: "Hao"
date: "10/11/2017"
output: pdf_document
---

```{r, include=F}
library(knitr)
library(kableExtra)
library(dplyr)
```

```{r}
mtcars[1:25, 1:5] %>%
  mutate(
    mpg = ifelse(mpg > 21, 
                 cell_spec(mpg, "latex", color = "green", bold = T),
                 cell_spec(mpg, "latex", color = "red", italic = T)),
    disp = cell_spec(disp, "latex", background = spec_color(disp), 
                     color = "white", bold = T)
  ) %>%
  kable("latex", escape = F, booktabs = T) %>%
  row_spec(0, angle = 90)
```