tests/visual_tests/footnote_html.Rmd

---
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", caption = paste0("test", footnote_marker_alphabet(1))) %>%
  kable_styling() %>%
  footnote(general = "ccc", 
           number = c("number 1; ", "number 2. "), 
           alphabet = c("a 1; ", "a 2."), 
           symbol = c("s 1; ", "s 2."))
```

```{r}
mtcars[1:5, 1:5] %>%
  kable("html", caption = paste0("test", footnote_marker_alphabet(1))) %>%
  kable_styling() %>%
  footnote(general = "ccc", 
           number = c("number 1; ", "number 2. "), 
           alphabet = c("a 1; ", "a 2."), 
           symbol = c("s 1; ", "s 2."),
           general_title = "",
           number_title = "special: ", 
           alphabet_title = "abc: ", 
           symbol_title = "triangle: ",
           footnote_as_chunk = T)
```