inst/doc/add_footnote_html.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_html--------------------------------------------------------
kable(dt, format = "html") %>%
  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))

## ----through_html_bootstrap----------------------------------------------
kable(dt, format = "html", table.attr = htmlTable_styling()) %>%
  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))

## ----through_latex_longtable---------------------------------------------
kable(dt, format = "html", 
      table.attr = htmlTable_styling(c("striped", "bordered"), 
                                     full_width = F)) %>%
  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))