add add_footnote_adv (temp name) for html table
diff --git a/tests/visual_tests/add_footnote_adv_html.Rmd b/tests/visual_tests/add_footnote_adv_html.Rmd
new file mode 100644
index 0000000..407c9ab
--- /dev/null
+++ b/tests/visual_tests/add_footnote_adv_html.Rmd
@@ -0,0 +1,18 @@
+---
+title: "add_footnote_adv"
+author: "Hao"
+date: "1/5/2018"
+output: html_document
+---
+
+```{r}
+library(knitr)
+library(kableExtra)
+
+mtcars[1:5, 1:5] %>%
+ kable("html") %>%
+ kable_styling() %>%
+ add_footnote_adv("ccc", c("number 1", "number 2"), c("a 1", "a 2"), c("s 1", "s 2"),
+ number_title = "special: ", alphabet_title = "abc: ",
+ footnote_as_chunk = T)
+```
diff --git a/tests/visual_tests/add_footnote_pdf.Rmd b/tests/visual_tests/add_footnote_pdf.Rmd
index 491248a..86bb0af 100644
--- a/tests/visual_tests/add_footnote_pdf.Rmd
+++ b/tests/visual_tests/add_footnote_pdf.Rmd
@@ -35,3 +35,15 @@
kable(dt, format = "latex", longtable = T, booktabs = T) %>%
add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
```
+
+## LaTeX + longtable
+Centered Table + page footnotes
+```{r}
+kable(dt, format = "latex", longtable = T) %>%
+ add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
+```
+
+```{r}
+kable(dt, format = "latex", booktabs = T, longtable = T) %>%
+add_footnote(c("Footnote 1", "Have a good day."), notation = "alphabet")
+```