add footnote for latex
diff --git a/tests/visual_tests/add_footnote_pdf.Rmd b/tests/visual_tests/add_footnote_pdf.Rmd
index 86bb0af..54aa844 100644
--- a/tests/visual_tests/add_footnote_pdf.Rmd
+++ b/tests/visual_tests/add_footnote_pdf.Rmd
@@ -44,6 +44,7 @@
```
```{r}
-kable(dt, format = "latex", booktabs = T, longtable = T) %>%
-add_footnote(c("Footnote 1", "Have a good day."), notation = "alphabet")
+kable(dt, format = "latex", booktabs = T) %>%
+ kable_styling(full_width = T) %>%
+ add_footnote(c("Footnote 1", "Have a good day.", "sss"), notation = "alphabet")
```
diff --git a/tests/visual_tests/footnote_latex.Rmd b/tests/visual_tests/footnote_latex.Rmd
index 2f6e558..718d057 100644
--- a/tests/visual_tests/footnote_latex.Rmd
+++ b/tests/visual_tests/footnote_latex.Rmd
@@ -2,17 +2,20 @@
title: "add_footnote_adv"
author: "Hao"
date: "1/5/2018"
-output: html_document
+output: pdf_document
---
```{r}
library(knitr)
library(kableExtra)
-mtcars[1:5, 1:5] %>%
- kable("html", caption = paste0("test", footnote_marker_symbol(1))) %>%
- kable_styling() %>%
- footnote("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)
+dt <- mtcars[1:5, 1:2]
+colnames(dt)[1] <- paste0("mpg", footnote_marker_alphabet(2, "latex"))
+
+dt %>%
+ kable("latex", caption = paste0("test", footnote_marker_symbol(1, "latex")),
+ booktabs = T, escape = F) %>%
+ footnote(NULL, 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)
```