R/spec-pre-knit.R

In atusy/minidown: Create Simple Yet Powerful HTML Documents with Light Weight CSS Frameworks

spec_pre_knit <- function(code_download_html = NULL) {
  if (is.null(code_download_html)) {
    return(NULL)
  }
  function(input, ...) {
    writeLines(
      htmltools::renderTags(download_rmd_button(input, align = "right"))$html,
      code_download_html
    )
  }
}