| --- |
| title: "add_footnote_adv" |
| author: "Hao" |
| date: "1/5/2018" |
| output: pdf_document |
| --- |
| |
| ```{r} |
| library(knitr) |
| library(kableExtra) |
| |
| dt <- mtcars[, 1:2] |
| colnames(dt)[1] <- paste0("mpg", footnote_marker_alphabet(2, "latex")) |
| ``` |
| |
| |
| ```{r} |
| dt %>% |
| kable("latex", caption = paste0("test", footnote_marker_symbol(1, "latex")), |
| booktabs = T, escape = F, longtable = T) %>% |
| 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) |
| ``` |
| |
| ```{r} |
| mtcars[1:5, 1:5] %>% |
| kable("latex", booktabs = T) %>% |
| footnote(general = c("Note 1", "Note 2"), general_title = "") |
| ``` |