R/materialize-page.R

In TuSKan/materializer: Implement Material Design in Shiny Applications

#' Create a container to organize UI content
#'
#' UI content can be insert in a container to organize items on a page.
#' @param inputId String. The input identifier used to access the value.
#' @param ... tagList. UI content list
#' @param bgcolor String. The color name for Sidenav backgroud. Leave empty for 'transparent' color. Visit \url{http://materializecss.com/color.html} for a list of available colors.
#' @param fontcolor String. The color name for links and icons in Sidenav Leave empty for the 'teal lighten-1' color. Visit \url{http://materializecss.com/color.html} for a list of available colors.
#' @examples
#' require(materializer)
#' material_page(inputId = "expage", shiny::h1("Page Content"))
#' @export
material_page <- function(inputId, ..., bgcolor = "transparent", fontcolor = NULL) {
  shiny::div(
    id = inputId,
    class = paste(
      "materialize-page",
      "container",
      sub(" ", ".",trimws(bgcolor)),
      colortext(fontcolor)
    ),
    shiny::div(
      class = "section",
      ...
    ),
    includeInHead(
      "materialize-page.js"
    )
  )
}

#' @rdname material_page
#' @export
#' @param active Boolean. Show Page
#' @param session Shiny default reactive domain.
update_material_page <- function(inputId, active, session = shiny::getDefaultReactiveDomain()) {
  session$sendInputMessage(
    inputId,
    cleanList(
      active = active
    )
  )
}