Add vignettes
diff --git a/inst/doc/add_footnote_html.R b/inst/doc/add_footnote_html.R
new file mode 100644
index 0000000..02e4032
--- /dev/null
+++ b/inst/doc/add_footnote_html.R
@@ -0,0 +1,25 @@
+## ----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--------------------------------------------------------
+kable(dt, format = "html") %>%
+ add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+
+## ----through_html_bootstrap----------------------------------------------
+kable(dt, format = "html", table.attr = htmlTable_styling()) %>%
+ add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+
+## ----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"))
+