Add htmlTable_styling; Improve old functions
diff --git a/inst/sample_documents/add_footnote_html.Rmd b/inst/sample_documents/add_footnote_html.Rmd
new file mode 100644
index 0000000..827a937
--- /dev/null
+++ b/inst/sample_documents/add_footnote_html.Rmd
@@ -0,0 +1,38 @@
+---
+title: add_footnote - HTML
+output: html_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 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"))
+```