improve color code setting
diff --git a/tests/visual_tests/cell_spec_html.Rmd b/tests/visual_tests/cell_spec_html.Rmd
index 4e90de3..fb645ad 100644
--- a/tests/visual_tests/cell_spec_html.Rmd
+++ b/tests/visual_tests/cell_spec_html.Rmd
@@ -22,3 +22,16 @@
kable("html", escape = F) %>%
kable_styling("condensed", full_width = F)
```
+
+```{r}
+iris[, 1:4] %>%
+ mutate_all(function(x){
+ cell_spec(x, "html",
+ color = spec_color(x, option = "A"),
+ font_size = spec_font_size(x),
+ bold = T)
+ }) %>%
+ kable("html", escape = F, booktabs = T, linesep = "", align = "c")%>%
+ row_spec(0, angle = 270, align = "right") %>%
+ kable_styling(full_width = F)
+```
diff --git a/tests/visual_tests/cell_spec_pdf.Rmd b/tests/visual_tests/cell_spec_pdf.Rmd
index 3134ef9..3368501 100644
--- a/tests/visual_tests/cell_spec_pdf.Rmd
+++ b/tests/visual_tests/cell_spec_pdf.Rmd
@@ -12,14 +12,12 @@
```
```{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)
+iris[1:10, 1:4] %>%
+ mutate_all(function(x){
+ cell_spec(x, "latex",
+ background = spec_color(x),
+ font_size = spec_font_size(x),
+ color = "white", bold = T)
+ }) %>%
+ kable("latex", escape = F, booktabs = T, linesep = "", align = "c")
```