Bootstrap table variables — bs_vars

Those variables can be used to customize table (produced ever by shiny::renderTable or by shiny::renderDataTable and DT equivalent) in Bootstrap and Bootswatch themes.

bs_vars_table(
  cell_padding = NULL,
  condensed_cell_padding = NULL,
  bg = NULL,
  bg_accent = NULL,
  bg_hover = NULL,
  bg_active = NULL,
  border_color = NULL
)

Arguments

cell_padding: Cell padding.
condensed_cell_padding: Cell padding when using condensed table.
bg: Background color.
bg_accent: Background color used in striped table.
bg_hover: Background color used when hovering the table with the mouse.
bg_active: Background color when row is selected.
border_color: Border color.

Value

a list that can be used in create_theme.

Examples


bs_vars_table(
  bg_accent = "lightblue",
  bg_hover = "firebrick"
)
#> $`table-bg-accent`
#> [1] "lightblue"
#> 
#> $`table-bg-hover`
#> [1] "firebrick"
#> 
#> attr(,"class")
#> [1] "fresh_sass_vars" "bootstrap_vars"  "list"           


if (interactive()) {
  library(shiny)
  library(fresh)

  ui <- fluidPage(

    use_theme(create_theme(
      theme = "default",
      bs_vars_table(
        bg_accent = "lightblue",
        bg_hover = "firebrick"
      )
    )),

    tags$h1("Tables"),
    fluidRow(
      column(
        width = 6,
        tableOutput("table")
      ),
      column(
        width = 6,
        dataTableOutput("datatable")
      )
    )
  )

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

    output$table <- renderTable(
      head(iris), striped = TRUE, hover = TRUE
    )

    output$datatable <- renderDataTable({
      head(mtcars)
    })

  }

  shinyApp(ui, server)
}