diff --git a/test/.DS_Store b/test/.DS_Store
new file mode 100644
index 0000000..93ddede
--- /dev/null
+++ b/test/.DS_Store
Binary files differ
diff --git a/test/visual_tests/.DS_Store b/test/visual_tests/.DS_Store
new file mode 100644
index 0000000..f5a2e96
--- /dev/null
+++ b/test/visual_tests/.DS_Store
Binary files differ
diff --git a/test/visual_tests/add_footnote_html.Rmd b/test/visual_tests/add_footnote_html.Rmd
new file mode 100644
index 0000000..6b23867
--- /dev/null
+++ b/test/visual_tests/add_footnote_html.Rmd
@@ -0,0 +1,42 @@
+---
+title: add_footnote - HTML
+output: html_document
+vignette: >
+  %\VignetteIndexEntry{Use add_footnote in HTML document}
+  %\VignetteEngine{knitr::rmarkdown} 
+  %\VignetteEncoding{UTF-8}
+---
+
+# Through Pandoc
+```{r through_pandoc}
+library(knitr)
+library(kableExtra)
+dt <- mtcars[1:5, 1:2]
+colnames(dt)[1] <- c("mpg[note]")
+rownames(dt)[2] <- c("Mazda RX4 Wag[note]")
+dt[3, 2] <- paste0(dt[3, 2], "[note]")
+
+kable(dt) %>%
+  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+```
+
+# Through HTML
+## Plain HTML
+```{r through_html}
+kable(dt, format = "html") %>%
+  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+```
+
+## HTML + bootstrap table
+```{r through_html_bootstrap}
+kable(dt, format = "html", table.attr = htmlTable_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
new file mode 100644
index 0000000..d29bcaf
--- /dev/null
+++ b/test/visual_tests/add_footnote_pdf.Rmd
@@ -0,0 +1,41 @@
+---
+title: add_footnote - PDF
+output: pdf_document
+vignette: >
+  %\VignetteIndexEntry{Use add_footnote in PDF document}
+  %\VignetteEngine{knitr::rmarkdown} 
+  %\VignetteEncoding{UTF-8}
+---
+
+# Through Pandoc
+```{r through_pandoc}
+library(knitr)
+library(kableExtra)
+dt <- mtcars[1:5, 1:2]
+colnames(dt)[1] <- c("mpg[note]")
+rownames(dt)[2] <- c("Mazda RX4 Wag[note]")
+dt[3, 2] <- paste0(dt[3, 2], "[note]")
+
+kable(dt) %>%
+  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+```
+
+# Through LaTeX
+## Plain LaTeX
+```{r through_latex_plain}
+kable(dt, format = "latex") %>%
+  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+```
+
+## LaTeX + booktabs
+```{r through_latex_booktabs}
+kable(dt, format = "latex", booktabs = T) %>%
+  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+```
+
+## LaTeX + longtable + booktabs
+Centered Table + page footnotes
+```{r through_latex_longtable}
+kable(dt, format = "latex", longtable = T, booktabs = T) %>%
+  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+```
diff --git a/test/visual_tests/add_header_above_pdf.Rmd b/test/visual_tests/add_header_above_pdf.Rmd
new file mode 100644
index 0000000..8b6b195
--- /dev/null
+++ b/test/visual_tests/add_header_above_pdf.Rmd
@@ -0,0 +1,24 @@
+---
+title: "add_header_above"
+output: 
+  pdf_document:
+    keep_tex: true
+---
+
+# Plain LaTeX 
+```{r}
+library(knitr)
+library(kableExtra)
+dt <- mtcars[1:5, 1:4]
+
+kable(dt, format = "latex") %>%
+  add_header_above(c(" ", "a" = 2, "b" = 2)) %>%
+  add_header_above(c(" ", "a" = 3, "b" = 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))
+```
diff --git a/test/visual_tests/htmlTable_styling.Rmd b/test/visual_tests/htmlTable_styling.Rmd
new file mode 100644
index 0000000..d5b1faa
--- /dev/null
+++ b/test/visual_tests/htmlTable_styling.Rmd
@@ -0,0 +1,61 @@
+---
+title: "kable_styling - HTML"
+output: html_document
+vignette: >
+  %\VignetteIndexEntry{htmlTable Styling Guide}
+  %\VignetteEngine{knitr::rmarkdown} 
+  %\VignetteEncoding{UTF-8}
+---
+
+# Plain HTML 
+```{r}
+library(knitr)
+library(kableExtra)
+dt <- mtcars[1:5, 1:2]
+
+kable(dt, format = "html")
+```
+
+# Basic Bootstrap Table
+```{r}
+kable(dt, format = "html") %>%
+  kable_styling()
+```
+
+# Boostrap Table Options
+## Striped
+```{r}
+kable(dt, format = "html") %>%
+  kable_styling(bootstrap_options = "striped")
+```
+
+## Striped + Hover
+```{r}
+kable(dt, format = "html") %>%
+  kable_styling(c("striped", "hover"))
+```
+
+## Other bootstrap options
+```{r}
+kable(dt, format = "html") %>%
+  kable_styling(c("striped", "bordered", "hover", "condensed", "responsive"))
+```
+
+# "Thin" Table and Floating options
+```{r}
+kable(dt, format = "html") %>%
+  kable_styling(c("striped", "bordered", "condensed"), full_width = F)
+```
+
+```{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")
+```
+
+
+
diff --git a/test/visual_tests/kable_styling_pdf.Rmd b/test/visual_tests/kable_styling_pdf.Rmd
new file mode 100644
index 0000000..2ea01a2
--- /dev/null
+++ b/test/visual_tests/kable_styling_pdf.Rmd
@@ -0,0 +1,20 @@
+---
+title: "kable_styling - PDF"
+output: 
+  pdf_document:
+    keep_tex: true
+---
+
+```{r, include=FALSE}
+library(knitr)
+library(kableExtra)
+dt <- mtcars[1:5, 1:2]
+
+kable(dt)
+```
+
+```{r}
+kable(dt, format = "latex") 
+```
+
+