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"))
+```