Add vignettes
diff --git a/vignettes/.gitignore b/vignettes/.gitignore
new file mode 100644
index 0000000..32244be
--- /dev/null
+++ b/vignettes/.gitignore
@@ -0,0 +1,3 @@
+figure
+*.html
+*.md
diff --git a/vignettes/add_footnote_html.Rmd b/vignettes/add_footnote_html.Rmd
new file mode 100644
index 0000000..6b23867
--- /dev/null
+++ b/vignettes/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/vignettes/add_footnote_pdf.Rmd b/vignettes/add_footnote_pdf.Rmd
new file mode 100644
index 0000000..d29bcaf
--- /dev/null
+++ b/vignettes/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/vignettes/htmlTable_styling.Rmd b/vignettes/htmlTable_styling.Rmd
new file mode 100644
index 0000000..5287889
--- /dev/null
+++ b/vignettes/htmlTable_styling.Rmd
@@ -0,0 +1,54 @@
+---
+title: "htmlTable_styling Guide"
+output:
+ html_document:
+ number_sections: true
+vignette: >
+ %\VignetteIndexEntry{htmlTable Styling Guide}
+ %\VignetteEngine{knitr::rmarkdown}
+ %\VignetteEncoding{UTF-8}
+---
+
+# Basic HTML
+```{r}
+library(knitr)
+library(kableExtra)
+dt <- mtcars[1:5, 1:2]
+
+kable(dt, format = "html")
+```
+
+# Basic Bootstrap Table
+```{r}
+kable(dt, format = "html", table.attr = htmlTable_styling())
+```
+
+# Boostrap Table Options
+## Striped
+```{r}
+kable(dt, format = "html", table.attr = htmlTable_styling(bootstrap_options = "striped"))
+```
+
+## Striped + Hover
+```{r}
+kable(dt, format = "html", table.attr = htmlTable_styling(c("striped", "hover")))
+```
+
+## Other bootstrap options
+```{r}
+kable(dt, format = "html",
+ table.attr = htmlTable_styling(c("striped", "bordered", "hover", "condensed", "responsive")))
+```
+
+# "Thin" Table and Floating options
+```{r}
+kable(dt, format = "html",
+ table.attr = htmlTable_styling(
+ c("striped", "bordered", "condensed"),
+ full_width = F,
+ float = "center"
+ ))
+```
+
+
+