R/card.R

In rsimon64/shinycards: Shiny Card

#' card
#'
#' A card like element for shiny.
#'
#' Based on shinydashboard box element. Adding icons, shadows and a default width of 3.
#'
#' @param ... shiny elements
#' @param title card title
#' @param icon shiny icon
#' @param footer footer
#' @param background background
#' @param width in numer of columns; default 3
#' @param height px
#' @author Reinhard Simon
#'
#' @return shiny element
#' @export
#'
card <- function(..., title = NULL, icon = shiny::icon("info"),
                 footer = NULL,
                 background = NULL, width = 3, height = NULL) {

  title <- shiny::HTML(paste0(as.character(icon), "&nbsp;", title,""))

  shinydashboard::box(..., title = title, footer = footer, status = "info",
                      style = "box-shadow: 0 8px 16px 0 rgba(0,0,0,0.3);transition: 0.3s;
                      border-radius: 5px;",
                      solidHeader = FALSE, background = background, width = width, height = height,
                      collapsible = FALSE, collapsed = FALSE)
}