add add_header_left
diff --git a/tests/visual_tests/add_header_left.Rmd b/tests/visual_tests/add_header_left.Rmd
new file mode 100644
index 0000000..6d1f6c6
--- /dev/null
+++ b/tests/visual_tests/add_header_left.Rmd
@@ -0,0 +1,20 @@
+---
+title: "add_header_left"
+output:
+ pdf_document:
+ keep_tex: true
+---
+
+```{r}
+library(knitr)
+library(kableExtra)
+
+mtcars[1:10, 1:6] %>%
+ kable("latex", booktabs= T) %>%
+ # kable_styling(latex_options = "striped") %>%
+ add_header_above(c(" ", "a%" = 3, "b" = 3)) %>%
+ add_header_left(c("a%" = 3, "b" = 7), "new") %>%
+ add_header_left(c("a" = 4, "b" = 6), "new2") %>%
+ group_rows("aasd", 4, 6)
+
+```