fresh (version 0.1.0)

bs_vars_navbar: Bootstrap CSS navbar variables

Description

Those variables can be used to customize navigation bar component (e.g. shiny::navbarPage) in Bootstrap and Bootswatch themes.

Usage

bs_vars_navbar(height = NULL, margin_bottom = NULL,
  default_color = NULL, default_bg = NULL, default_border = NULL,
  default_link_color = NULL, default_link_active_color = NULL,
  default_link_active_bg = NULL, default_link_hover_color = NULL,
  default_link_hover_bg = NULL, inverse_color = NULL,
  inverse_bg = NULL, inverse_border = NULL,
  inverse_link_color = NULL, inverse_link_active_color = NULL,
  inverse_link_active_bg = NULL, inverse_link_hover_color = NULL,
  inverse_link_hover_bg = NULL)

Arguments

height

Height of the navbar, e.g. "50px" (the default in Bootstrap).

margin_bottom

Bottom margin of navbar.

default_color

Color of text in the navbar.

default_bg

Background color of the navbar.

default_border

Border color of the navbar.

default_link_color

Link color.

default_link_active_color

Color for active link (selected tab).

default_link_active_bg

Background color for active link (selected tab).

default_link_hover_color

Color of links when hovered.

default_link_hover_bg

Background color of links when hovered.

inverse_color

Color of text for inversed navbar.

inverse_bg

Background color for inversed navbar.

inverse_border

Border color for inversed navbar.

inverse_link_color

Link color for inversed navbar.

inverse_link_active_color

Color for active link (selected tab) for inversed navbar.

inverse_link_active_bg

Background color for active link (selected tab) for inversed navbar.

inverse_link_hover_color

Color of links when hovered for inversed navbar.

inverse_link_hover_bg

Background color of links when hovered for inversed navbar.

Value

a list that can be used in create_theme.

Examples

# NOT RUN {
# Change background color of the navbar
bs_vars_navbar(
  default_bg = "#75b8d1",
  default_color = "#FFFFFF",
  default_link_color = "#FFFFFF",
  default_link_active_color = "#FFFFFF"
)

if (interactive()) {
  library(shiny)

  ui <- navbarPage(
    title = "Custom navbar",
    header = use_theme(
      create_theme(
        theme = "default",
        bs_vars_navbar(
          default_bg = "#75b8d1",
          default_color = "#FFFFFF",
          default_link_color = "#FFFFFF",
          default_link_active_color = "#75b8d1",
          default_link_active_bg = "#FFFFFF",
          default_link_hover_color = "firebrick"

        ),
        output_file = NULL
      )
    ),
    tabPanel("Tab 1"),
    tabPanel("Tab 2")
  )

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

  }

  shinyApp(ui, server)
}
# }