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)
+
+```
diff --git a/tests/visual_tests/add_header_left_html.Rmd b/tests/visual_tests/add_header_left_html.Rmd
index 2fe83de..794543f 100644
--- a/tests/visual_tests/add_header_left_html.Rmd
+++ b/tests/visual_tests/add_header_left_html.Rmd
@@ -11,5 +11,6 @@
kable("html") %>%
kable_styling() %>%
add_header_above(c(" ", "a" = 3, "b" = 3)) %>%
- add_header_left(c("a" = 2, "b" = 3))
+ add_header_left(c("a" = 2, "b" = 3)) %>%
+ add_header_left(c("a%" = 3, "b" = 7))
```
diff --git a/tests/visual_tests/indent_and_row_group.Rmd b/tests/visual_tests/indent_and_row_group.Rmd
index 4ad0262..789fff8 100644
--- a/tests/visual_tests/indent_and_row_group.Rmd
+++ b/tests/visual_tests/indent_and_row_group.Rmd
@@ -18,3 +18,19 @@
add_indent(c(3, 5)) %>%
add_indent(5)
```
+
+```{r}
+library(knitr)
+library(kableExtra)
+for (i in 1:nrow(mtcars)) {
+ mtcars$hp[i] <- paste0(mtcars$hp[i], " (", 1, ")")
+ mtcars$wt[i] <- paste0(mtcars$wt[i], " &")
+ mtcars$mpg[i] <- paste0(mtcars$mpg[i], "%")
+}
+kable(head(mtcars, n = 20), "latex", caption = "test", booktabs = T) %>%
+ kable_styling() %>%
+ # group_rows("these rows", 4, 16) %>%
+ # group_rows("Those rows", 17,20) %>%
+ # add_header_above(c(" ", "aaa$" = 5, "bbb%" = 6)) %>%
+ add_header_left(c("jj", "aaa" = 5, "bbb" = 6))
+```
diff --git a/tests/visual_tests/longtable.Rmd b/tests/visual_tests/longtable.Rmd
index 1c27632..b586d79 100644
--- a/tests/visual_tests/longtable.Rmd
+++ b/tests/visual_tests/longtable.Rmd
@@ -31,3 +31,15 @@
add_header_above(c(" ", "a" = 6, "b" = 5)) %>%
kable_styling(latex_options = "repeat_header", repeat_header_text = "(cont.)")
```
+
+```{r}
+df <- data.frame(replicate(13, sample(1000000:9000000, 60,replace=TRUE)))
+df$Sum <- rowSums(df)
+totals <- colSums(df)
+df <- rbind(df, totals)
+names(df) <- c("Jan 2014", "Feb 2014", "Mar 2014", "Apr 2014", "May 2014", "Jun 2014", "Jul 2014",
+ "Aug 2014", "Sep 2014", "Oct 2014", "Nov 2014", "Dec 2014", "Jan 2015", "Sum")
+kable(df, "latex", longtable = T, booktabs = T) %>%
+ kable_styling(latex_options = c("repeat_header"), font_size = 7) %>%
+ landscape()
+```