Add htmlTable_styling; Improve old functions
diff --git a/inst/sample_documents/add_footnote_pdf.Rmd b/inst/sample_documents/add_footnote_pdf.Rmd
new file mode 100644
index 0000000..2c489a3
--- /dev/null
+++ b/inst/sample_documents/add_footnote_pdf.Rmd
@@ -0,0 +1,38 @@
+---
+title: add_footnote - PDF
+output: pdf_document
+---
+
+# 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
+```{r through_latex_longtable}
+kable(dt, format = "latex", longtable = T)
+
+# %>%
+# add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+```