bs_vars_panel: Bootstrap panel variables

In fresh: Create Custom 'Bootstrap' Themes to Use in 'Shiny'

Description

Those variables can be used to customize panel (e.g. shinyWidgets::panel in Bootstrap and Bootswatch themes.

Usage

bs_vars_panel(
  bg = NULL,
  body_padding = NULL,
  heading_padding = NULL,
  footer_padding = NULL,
  border_radius = NULL,
  inner_border = NULL,
  footer_bg = NULL,
  default_text = NULL,
  default_border = NULL,
  default_heading_bg = NULL,
  primary_text = NULL,
  primary_border = NULL,
  primary_heading_bg = NULL,
  success_text = NULL,
  success_border = NULL,
  success_heading_bg = NULL,
  info_text = NULL,
  info_border = NULL,
  info_heading_bg = NULL,
  warning_text = NULL,
  warning_border = NULL,
  warning_heading_bg = NULL,
  danger_text = NULL,
  danger_border = NULL,
  danger_heading_bg = NULL
)

Arguments

bg	Background color.
body_padding	Panel body padding.
heading_padding	Panel heading padding.
footer_padding	Panel footer padding.
border_radius	Variable for setting rounded corners on panel.
inner_border	Border color for inner elements in panel.
footer_bg	Panel footer background color.
default_text	Default color for text.
default_border	Default border color.
default_heading_bg	Default background color for panel heading.
primary_text	Text color for primary status.
primary_border	Border color for primary status.
primary_heading_bg	Heading background color for primary status.
success_text	Text color for success status.
success_border	Border color for success status.
success_heading_bg	Heading background color for success status.
info_text	Text color for info status.
info_border	Border color for info status.
info_heading_bg	Heading background color for info status.
warning_text	Text color for warning status.
warning_border	Border color for warning status.
warning_heading_bg	Heading background color for warning status.
danger_text	Text color for danger status.
danger_border	Border color for danger status.
danger_heading_bg	Heading background color for danger status.

Value

a list that can be used in create_theme.

Examples

bs_vars_panel(
  border_radius = "15px",
  default_text = "#FFF",
  default_heading_bg = "#3f2d54",
  default_border = "#3f2d54",
  primary_heading_bg = "#1B9E77",
  primary_border = "#1B9E77",
  success_heading_bg = "#D95F02",
  success_border = "#D95F02",
  success_text = "#FFF",
  danger_heading_bg = "#7570B3",
  danger_border = "#7570B3",
  danger_text = "#FFF"
)

if (interactive()) {
  library(shiny)
  library(shinyWidgets)

  ui <- fluidPage(
    use_theme(
      create_theme(
        theme = "default",
        bs_vars_panel(
          border_radius = "15px",
          default_text = "#FFF",
          default_heading_bg = "#3f2d54",
          default_border = "#3f2d54",
          primary_heading_bg = "#1B9E77",
          primary_border = "#1B9E77",
          success_heading_bg = "#D95F02",
          success_border = "#D95F02",
          success_text = "#FFF",
          danger_heading_bg = "#7570B3",
          danger_border = "#7570B3",
          danger_text = "#FFF"
        ),
        output_file = NULL
      )
    ),
    tags$h1("Custom panels"),
    fluidRow(
      column(
        width = 3,
        panel(
          heading = "Default panel",
          "Some content"
        )
      ),
      column(
        width = 3,
        panel(
          heading = "Primary panel",
          status = "primary",
          "Some content"
        )
      ),
      column(
        width = 3,
        panel(
          heading = "Success panel",
          status = "success",
          "Some content"
        )
      ),
      column(
        width = 3,
        panel(
          heading = "Danger panel",
          status = "danger",
          "Some content"
        )
      )
    )
  )

  server <- function(input, output, session) {

  }

  shinyApp(ui, server)
}

fresh documentation built on July 2, 2020, 1:59 a.m.