test/visual_tests/add_footnote_pdf.Rmd

---
title: add_footnote - PDF
output: pdf_document
vignette: >
  %\VignetteIndexEntry{Use add_footnote in PDF 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 LaTeX
## Plain LaTeX
```{r through_latex_plain}
kable(dt, format = "latex") %>%
  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
```

## LaTeX + booktabs
```{r through_latex_booktabs}
kable(dt, format = "latex", booktabs = T) %>%
  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
```

## LaTeX + longtable + booktabs
Centered Table + page footnotes
```{r through_latex_longtable}
kable(dt, format = "latex", longtable = T, booktabs = T) %>%
  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
```