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

Plain HTML

kable(dt, format = "html") %>%
  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))

HTML + bootstrap table

kable(dt, format = "html") %>%
  kable_styling() %>%
  add_footnote(c("footnote 1", "footnote 2", "footnote 3"))


haozhu233/kableExtra documentation built on April 13, 2024, 6:49 p.m.