R/htmldeps_rmarkdown.R

In rstudio/htmldeps: Provides HTML Dependencies for Several Packages

#' A wrapper for `system.file()`
#' @noRd
system_file <- function(file) {
  system.file(file, package = "htmldeps")
}

#' An HTML dependency using `jquery.js`
#' @importFrom htmltools htmlDependency
#' @export
html_dependency_jquery <- function()  {

  htmltools::htmlDependency(
    name = "jquery",
    version = "1.11.3",
    src = system_file(file = "rmd/h/jquery"),
    script = "jquery.min.js")
}

#' An HTML dependency using `jqueryui.js`
#' @importFrom htmltools htmlDependency
#' @export
html_dependency_jqueryui <- function() {

  htmltools::htmlDependency(
    name = "jqueryui",
    version = "1.11.4",
    src = system_file(file = "rmd/h/jqueryui"),
    script = "jquery-ui.min.js")
}

#' An HTML dependency using `bootstrap.js`
#' @param theme the name of the bootstrap theme.
#' @importFrom htmltools htmlDependency
#' @export
html_dependency_bootstrap <- function(theme) {

  if (identical(theme, "default")) {
    theme <- "bootstrap"
  }

  htmltools::htmlDependency(
    name = "bootstrap",
    version = "3.3.5",
    src = system_file(file = "rmd/h/bootstrap"),
    meta = list(viewport = "width=device-width, initial-scale=1"),
    script = c(
      "js/bootstrap.min.js",
      # These shims are necessary for IE 8 compatibility
      "shim/html5shiv.min.js",
      "shim/respond.min.js"),
    stylesheet = paste0("css/", theme, ".min.css"))
}

#' An HTML dependency using `tocify.js`
#' @importFrom htmltools htmlDependency
#' @export
html_dependency_tocify <- function() {

  htmltools::htmlDependency(
    name = "tocify",
    version = "1.9.1",
    src = system_file(file = "rmd/h/tocify"),
    script = "jquery.tocify.js",
    stylesheet = "jquery.tocify.css")
}

#' An HTML dependency for FontAwesome
#' @importFrom htmltools htmlDependency
#' @export
html_dependency_font_awesome <- function() {
  htmlDependency(
    "font-awesome",
    "5.1.0",
    src = system_file("rmd/h/fontawesome"),
    stylesheet = c(
      "css/all.css",
      "css/v4-shims.css")
  )
}

#' An HTML dependency for ionicons
#' @importFrom htmltools htmlDependency
#' @export
html_dependency_ionicons <- function() {

  htmltools::htmlDependency(
    name = "ionicons",
    version = "2.0.1",
    src = system_file(file = "rmd/h/ionicons"),
    stylesheet = "css/ionicons.min.css")
}