inst/templates/rmd_to_html/source_embed.md

In BabyMouse/Rb3m: Rb3m package

# Source: https://github.com/yihui/xfun/blob/master/R/markdown.R
# xfun::embed_file('ddrIntroduction.Rmd')
xfun::pkg_load2(c("base64enc", "htmltools", "mime"))
embed_file_a <- function(
                         file,
                         name = basename(file),
                         text = paste("Download", name),
                         ...) {
  h <- paste0(
    "data:",
    mime::guess_type(file),
    ";base64,",
    base64enc::base64encode(file)
  )
  htmltools::a(
    id = "embed-rmd-file",
    href = h,
    download = name,
    hidden = NA,
    text,
    ...
  )
}

BabyMouse/Rb3m documentation built on June 4, 2020, 11:21 a.m.