Tables

library(whereami)
library(magrittr)
library(kableExtra)

HTML footnote

knitr::kable(head(iris,10), align = "c",format = 'html') %>%
  kableExtra::footnote(
    general_title = "Source: ",
    general = whereami(path_expand = TRUE))
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
5.1 3.5 1.4 0.2 setosa
4.9 3.0 1.4 0.2 setosa
4.7 3.2 1.3 0.2 setosa
4.6 3.1 1.5 0.2 setosa
5.0 3.6 1.4 0.2 setosa
5.4 3.9 1.7 0.4 setosa
4.6 3.4 1.4 0.3 setosa
5.0 3.4 1.5 0.2 setosa
4.4 2.9 1.4 0.2 setosa
4.9 3.1 1.5 0.1 setosa
Source:
/private/var/folders/kx/t4h_mm1910sb7vhm_gnfnx2c0000gn/T/RtmpcyPykM/Rbuild10c4067b55e3a/whereami/vignettes/tables.Rmd