R/lazyhtml_document.R

In hafen/lazyrmd: Render R Markdown Outputs Lazily

#' Provide HTML dependencies for lazyhtml R Markdown format
#'
#' @export
html_dependency_lazyload <- function() {
  htmltools::htmlDependency(
    name = "lazyload",
    version = "0.1.0",
    src = system.file("deps/lazyload", package = "lazyrmd"),
    script = c("lazyload.js"),
    stylesheet = "lazyload.css"
  )
}

# keep old "recliner" definition temporarily to make packagedocs happy
#' Provide HTML dependencies for lazyhtml R Markdown format
#'
#' @export
html_dependency_recliner <- function() {
  htmltools::htmlDependency(
    name = "lazyload",
    version = "0.1.0",
    src = system.file("deps/lazyload", package = "lazyrmd"),
    script = c("lazyload.js"),
    stylesheet = "lazyload.css"
  )
}

#' Format for converting from R Markdown to an HTML document with lazy loading of graphics
#'
#' @param \ldots parameters passed to rmarkdown's function matching the parameter \code{rmarkdown}
#' @param lazyrmd_render_fn function used to compile the document.  Paired with the \code{lazyrmd_render_package} parameter, it defaults to \code{\link[rmarkdown]{html_document}}.
#' @param lazyrmd_render_package package used to look for the \code{lazyrmd_render_fn}.
#' @import rmarkdown
#' @export
#' @examples
#' if (interactive()) browseURL("https://github.com/hafen/lazyrmd#usage")
lazy_render <- function(
  ...,
  lazyrmd_render_fn = "html_document",
  lazyrmd_render_package = "rmarkdown"
) {
  dots <- list(...)
  # dots$extra_dependencies <- c(dots$extra_dependencies,
  #   list(html_dependency_jquery(), html_dependency_lazyload()))

  fn_to_render <- get(lazyrmd_render_fn, envir = loadNamespace(lazyrmd_render_package))
  do.call(fn_to_render, dots)
}