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)
+```