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