inst/sample_documents/add_footnote_pdf.Rmd

---
title: add_footnote - PDF
output: pdf_document
---

# 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
```{r through_latex_longtable}
kable(dt, format = "latex", longtable = T) 

# %>%
#   add_footnote(c("footnote 1", "footnote 2", "footnote 3"))
```