if (FALSE) {
dt <- mtcars[1:5, 1:5]
colnames(dt)[1] <- paste0("mpg",
footnote_marker_alphabet(2))
rownames(dt)[2] <- paste0(rownames(dt)[2],
footnote_marker_alphabet(1))
dt[1,2] <- paste0(dt[1,2], footnote_marker_alphabet(3))
kbl(dt, escape = FALSE) |>
footnote(alphabet = c("Note a", "Note b", "Note c"))
}
Run the code above in your browser using DataLab