fresh (version 0.1.0)

bs_vars_panel: Bootstrap CSS panel variables

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

# NOT RUN {
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)
}
# }

Run the code above in your browser using DataCamp Workspace