finishing kable_styling
diff --git a/test/visual_tests/.gitignore b/test/visual_tests/.gitignore
new file mode 100644
index 0000000..7ea9e79
--- /dev/null
+++ b/test/visual_tests/.gitignore
@@ -0,0 +1,7 @@
+figure
+*.html
+*.md
+*.pdf
+*.log
+*.tex
+*.synctex.gz
diff --git a/test/visual_tests/add_footnote_html.Rmd b/test/visual_tests/add_footnote_html.Rmd
index 6b23867..4aff116 100644
--- a/test/visual_tests/add_footnote_html.Rmd
+++ b/test/visual_tests/add_footnote_html.Rmd
@@ -29,14 +29,8 @@
## HTML + bootstrap table
```{r through_html_bootstrap}
-kable(dt, format = "html", table.attr = htmlTable_styling()) %>%
+kable(dt, format = "html") %>%
+ kable_styling() %>%
add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
```
-## HTML + bootstrap narrow table
-```{r through_latex_longtable}
-kable(dt, format = "html",
- table.attr = htmlTable_styling(c("striped", "bordered"),
- full_width = F)) %>%
- add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
-```
diff --git a/test/visual_tests/add_footnote_pdf.Rmd b/test/visual_tests/add_footnote_pdf.Rmd
index d29bcaf..491248a 100644
--- a/test/visual_tests/add_footnote_pdf.Rmd
+++ b/test/visual_tests/add_footnote_pdf.Rmd
@@ -1,10 +1,6 @@
---
-title: add_footnote - PDF
+title: "add_footnote - PDF"
output: pdf_document
-vignette: >
- %\VignetteIndexEntry{Use add_footnote in PDF document}
- %\VignetteEngine{knitr::rmarkdown}
- %\VignetteEncoding{UTF-8}
---
# Through Pandoc
diff --git a/test/visual_tests/add_header_above_html.Rmd b/test/visual_tests/add_header_above_html.Rmd
new file mode 100644
index 0000000..fb41d08
--- /dev/null
+++ b/test/visual_tests/add_header_above_html.Rmd
@@ -0,0 +1,24 @@
+---
+title: "add_header_above"
+output: html_document
+---
+
+# Plain LaTeX
+```{r}
+library(knitr)
+library(kableExtra)
+dt <- mtcars[1:5, 1:4]
+
+kable(dt, format = "html") %>%
+ add_header_above(c(" ", "a" = 2, "b" = 2)) %>%
+ add_header_above(c(" ", "c" = 3, "d" = 1))
+```
+
+# Basic Bootstrap Table
+```{r}
+kable(dt, format = "html") %>%
+ kable_styling(full_width = F,
+ bootstrap_options = c("striped", "bordered")) %>%
+ add_header_above(c(" ", "a" = 2, "b" = 2)) %>%
+ add_header_above(c(" ", "c" = 3, "d" = 1))
+```
diff --git a/test/visual_tests/add_header_above_pdf.Rmd b/test/visual_tests/add_header_above_pdf.Rmd
index 8b6b195..56b4b4e 100644
--- a/test/visual_tests/add_header_above_pdf.Rmd
+++ b/test/visual_tests/add_header_above_pdf.Rmd
@@ -1,8 +1,6 @@
---
title: "add_header_above"
-output:
- pdf_document:
- keep_tex: true
+output: pdf_document
---
# Plain LaTeX
@@ -13,12 +11,12 @@
kable(dt, format = "latex") %>%
add_header_above(c(" ", "a" = 2, "b" = 2)) %>%
- add_header_above(c(" ", "a" = 3, "b" = 1))
+ add_header_above(c(" ", "c" = 3, "d" = 1))
```
# Basic Bootstrap Table
```{r}
kable(dt, format = "latex", booktabs = T) %>%
add_header_above(c(" ", "a" = 2, "b" = 2)) %>%
- add_header_above(c(" ", "a" = 3, "b" = 1))
+ add_header_above(c(" ", "c" = 3, "d" = 1))
```
diff --git a/test/visual_tests/htmlTable_styling.Rmd b/test/visual_tests/htmlTable_styling.Rmd
index d5b1faa..2841214 100644
--- a/test/visual_tests/htmlTable_styling.Rmd
+++ b/test/visual_tests/htmlTable_styling.Rmd
@@ -32,7 +32,7 @@
## Striped + Hover
```{r}
kable(dt, format = "html") %>%
- kable_styling(c("striped", "hover"))
+ kable_styling(c("striped", "hover", "primary"))
```
## Other bootstrap options
@@ -47,15 +47,16 @@
kable_styling(c("striped", "bordered", "condensed"), full_width = F)
```
+;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf,
+;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf,
+;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf,
```{r}
kable(dt, format = "html") %>%
- kable_styling(c("striped", "bordered", "condensed"), full_width = F,
- float = "left", font_size = 10) %>%
- add_header_above(c(" ", "Names" = 2)) %>%
- add_header_above(c(" " = 2, "Names")) %>%
- add_header_above(c("Names[note]" = 3)) %>%
- add_footnote("note")
+ kable_styling(c("striped", "condensed"), full_width = F,
+ position = "float_right", font_size = 10) %>%
+ add_header_above(c(" ", "Names[note]" = 2)) %>%
+ add_footnote("footnote")
```
-
+;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf, ;ojadsf sadfls;af ewejdalsf,asf ,weifojsfakslf,
diff --git a/test/visual_tests/kable_styling_pdf.Rmd b/test/visual_tests/kable_styling_pdf.Rmd
index 2ea01a2..ba1f1a2 100644
--- a/test/visual_tests/kable_styling_pdf.Rmd
+++ b/test/visual_tests/kable_styling_pdf.Rmd
@@ -5,16 +5,63 @@
keep_tex: true
---
-```{r, include=FALSE}
+```{r}
library(knitr)
library(kableExtra)
-dt <- mtcars[1:5, 1:2]
-
-kable(dt)
+dt <- mtcars[1:5, 1:8]
```
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla ullamcorper mauris quis risus dignissim pellentesque. Vivamus in est finibus, porta enim in, sagittis sapien. Mauris dapibus ex nec interdum laoreet. Suspendisse sed venenatis nunc. Donec magna mauris, imperdiet eget mi eget, fringilla vestibulum nisl. Pellentesque scelerisque a elit at blandit. Etiam maximus eget urna quis vestibulum. Cras finibus mi non aliquam condimentum. Mauris feugiat libero vitae massa posuere, et congue turpis convallis. Vestibulum aliquam, quam et accumsan posuere, magna nisl ornare nunc, ac sodales metus elit ac erat.
+
```{r}
-kable(dt, format = "latex")
+kable(dt[1:3], format = "latex", booktabs = T, caption = "xxx") %>%
+ kable_styling(latex_options = c("striped", "hold_position"), font_size = 6, position = "float_left")
+```
+
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla ullamcorper mauris quis risus dignissim pellentesque. Vivamus in est finibus, porta enim in, sagittis sapien. Mauris dapibus ex nec interdum laoreet. Suspendisse sed venenatis nunc. Donec magna mauris, imperdiet eget mi eget, fringilla vestibulum nisl. Pellentesque scelerisque a elit at blandit. Etiam maximus eget urna quis vestibulum. Cras finibus mi non aliquam condimentum. Mauris feugiat libero vitae massa posuere, et congue turpis convallis. Vestibulum aliquam, quam et accumsan posuere, magna nisl ornare nunc, ac sodales metus elit ac erat.
+
+
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla ullamcorper mauris quis risus dignissim pellentesque. Vivamus in est finibus, porta enim in, sagittis sapien. Mauris dapibus ex nec interdum laoreet. Suspendisse sed venenatis nunc. Donec magna mauris, imperdiet eget mi eget, fringilla vestibulum nisl. Pellentesque scelerisque a elit at blandit. Etiam maximus eget urna quis vestibulum. Cras finibus mi non aliquam condimentum. Mauris feugiat libero vitae massa posuere, et congue turpis convallis. Vestibulum aliquam, quam et accumsan posuere, magna nisl ornare nunc, ac sodales metus elit ac erat.
+
+```{r}
+kable(dt, format = "latex", booktabs = T, longtable = T) %>%
+ kable_styling(latex_options = c("striped", "hold_position"), font_size = 6, position = "float_left")
+```
+
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla ullamcorper mauris quis risus dignissim pellentesque. Vivamus in est finibus, porta enim in, sagittis sapien. Mauris dapibus ex nec interdum laoreet. Suspendisse sed venenatis nunc. Donec magna mauris, imperdiet eget mi eget, fringilla vestibulum nisl. Pellentesque scelerisque a elit at blandit. Etiam maximus eget urna quis vestibulum. Cras finibus mi non aliquam condimentum. Mauris feugiat libero vitae massa posuere, et congue turpis convallis. Vestibulum aliquam, quam et accumsan posuere, magna nisl ornare nunc, ac sodales metus elit ac erat.
+
+```{r}
+kable(dt, format = "latex", longtable = T) %>%
+ kable_styling(latex_options = c("hold_position"), font_size = 6, position = "float_left")
+```
+
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla ullamcorper mauris quis risus dignissim pellentesque. Vivamus in est finibus, porta enim in, sagittis sapien. Mauris dapibus ex nec interdum laoreet. Suspendisse sed venenatis nunc. Donec magna mauris, imperdiet eget mi eget, fringilla vestibulum nisl. Pellentesque scelerisque a elit at blandit. Etiam maximus eget urna quis vestibulum. Cras finibus mi non aliquam condimentum. Mauris feugiat libero vitae massa posuere, et congue turpis convallis. Vestibulum aliquam, quam et accumsan posuere, magna nisl ornare nunc, ac sodales metus elit ac erat.
+
+
+```{r}
+kable(dt, format = "latex", caption = "sss") %>%
+ kable_styling(latex_options = c("striped", "hold_position"), font_size = 6, position = "float_left")
+```
+
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla ullamcorper mauris quis risus dignissim pellentesque. Vivamus in est finibus, porta enim in, sagittis sapien. Mauris dapibus ex nec interdum laoreet. Suspendisse sed venenatis nunc. Donec magna mauris, imperdiet eget mi eget, fringilla vestibulum nisl. Pellentesque scelerisque a elit at blandit. Etiam maximus eget urna quis vestibulum. Cras finibus mi non aliquam condimentum. Mauris feugiat libero vitae massa posuere, et congue turpis convallis. Vestibulum aliquam, quam et accumsan posuere, magna nisl ornare nunc, ac sodales metus elit ac erat.
+
+```{r}
+kable(dt, format = "latex", booktabs = T, caption = "sss") %>%
+ kable_styling(latex_options = c("striped", "hold_position"), font_size = 6, position = "float_left")
+```
+
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla ullamcorper mauris quis risus dignissim pellentesque. Vivamus in est finibus, porta enim in, sagittis sapien. Mauris dapibus ex nec interdum laoreet. Suspendisse sed venenatis nunc. Donec magna mauris, imperdiet eget mi eget, fringilla vestibulum nisl. Pellentesque scelerisque a elit at blandit. Etiam maximus eget urna quis vestibulum. Cras finibus mi non aliquam condimentum. Mauris feugiat libero vitae massa posuere, et congue turpis convallis. Vestibulum aliquam, quam et accumsan posuere, magna nisl ornare nunc, ac sodales metus elit ac erat.
+
+```{r}
+kable(dt, format = "latex", booktabs = T, longtable = T, caption = "sss") %>%
+ kable_styling(latex_options = c("striped", "hold_position"), font_size = 6, position = "float_left")
+```
+
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla ullamcorper mauris quis risus dignissim pellentesque. Vivamus in est finibus, porta enim in, sagittis sapien. Mauris dapibus ex nec interdum laoreet. Suspendisse sed venenatis nunc. Donec magna mauris, imperdiet eget mi eget, fringilla vestibulum nisl. Pellentesque scelerisque a elit at blandit. Etiam maximus eget urna quis vestibulum. Cras finibus mi non aliquam condimentum. Mauris feugiat libero vitae massa posuere, et congue turpis convallis. Vestibulum aliquam, quam et accumsan posuere, magna nisl ornare nunc, ac sodales metus elit ac erat.
+
+```{r}
+kable(dt, format = "latex", booktabs = F, longtable = T, caption = "sss") %>%
+ kable_styling(latex_options = c("striped", "hold_position"), font_size = 6, position = "float_left")
```