Bootstrap modal variables — bs_vars

Those variables can be used to customize modal (e.g. shiny::modalDialog in Bootstrap and Bootswatch themes.

bs_vars_modal(
  md = NULL,
  lg = NULL,
  sm = NULL,
  inner_padding = NULL,
  title_padding = NULL,
  title_line_height = NULL,
  content_bg = NULL,
  content_border_color = NULL,
  content_fallback_border_color = NULL,
  backdrop_bg = NULL,
  backdrop_opacity = NULL,
  header_border_color = NULL,
  footer_border_color = NULL
)

Arguments

md: Size in pixel for medium modal, e.g. modalDialog(size = "m").
lg: Size in pixel for large modal, e.g. modalDialog(size = "l").
sm: Size in pixel for small modal, e.g. modalDialog(size = "s").
inner_padding: Padding applied to the modal body.
title_padding: Padding applied to the modal title.
title_line_height: Modal title line-height.
content_bg: Background color of modal content area.
content_border_color: Modal content border color.
content_fallback_border_color: Modal content border color (for IE8).
backdrop_bg: Modal backdrop background color.
backdrop_opacity: Modal backdrop opacity.
header_border_color: Modal header border color.
footer_border_color: Modal footer border color.

Value

a list that can be used in create_theme.

Examples

bs_vars_modal(
  md = "80%",
  backdrop_opacity = 1,
  header_border_color = "#112446",
  footer_border_color = "#112446"
)
#> $`modal-md`
#> [1] "80%"
#> 
#> $`modal-backdrop-opacity`
#> [1] 1
#> 
#> $`modal-header-border-color`
#> [1] "#112446"
#> 
#> $`modal-footer-border-color`
#> [1] "#112446"
#> 
#> attr(,"class")
#> [1] "fresh_sass_vars" "bootstrap_vars"  "list"           

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

  ui <- fluidPage(
    use_theme(
      create_theme(
        theme = "default",
        bs_vars_modal(
          md = "80%",
          backdrop_opacity = 1,
          header_border_color = "#112446",
          footer_border_color = "#112446"
        ),
        output_file = NULL
      )
    ),
    tags$h1("Custom modals"),
    actionButton("show", "Show modal dialog")
  )

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

    observeEvent(input$show, {
      showModal(modalDialog(
        title = "Important message",
        "This is an important message!"
      ))
    })

  }

  shinyApp(ui, server)
}