R/page.R

In ashbaldry/shinyfoundation: Foundation UI Framework for Shiny

#' Basic Page for Foundation UI
#'
#' @description
#' Creates a Shiny UI page that load s the CSS and JavaScript for Foundation.
#'
#' @param ... The contents of the document body.
#' @param header The contents of the document header
#' @param footer The contents of the document footer
#'
#' @export
fd_page <- function(..., header = NULL, footer = NULL) {
  htmltools::attachDependencies(
    shiny::tagList(
      if (!is.null(header)) tags$header(header),
      ...,
      if (!is.null(footer)) tags$footer(footer),
      tags$script("$(document).foundation()")
    ),
    fd_library()
  )
}

#' Library location for foundation framework
#'
#' @export
fd_library <- function() {
  htmltools::htmlDependency(
    "foundation", "6.5.1",
    c(
      href = "foundation",
      file = system.file("www/foundation/6.5.1", package = "shiny.foundation")
    ),
    script = c("js/foundation.min.js", "js/what-input.js"),
    stylesheet = "css/foundation.min.css"
  )
}