inst/doc/fresh.R

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

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

## ----setup--------------------------------------------------------------------
# library(fresh)

## -----------------------------------------------------------------------------
# create_theme(
#   theme = "default",
#   bs_vars_button(
#     default_color = "#FFF",
#     default_bg = "#112446",
#     default_border = "#112446",
#     border_radius_base = "15px"
#   ),
#   bs_vars_wells(
#     bg = "#FFF",
#     border = "#112446"
#   )
# )

## ----eval=TRUE, echo=FALSE----------------------------------------------------
knitr::include_graphics(path = "figures/example_shiny.png")

## -----------------------------------------------------------------------------
# mytheme <- 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
# )
# 
# navbarPage(
#   title = "Custom navbar",
#   header = tagList(
#     use_theme(mytheme) # <-- use your theme
#   ),
#   tabPanel("Tab 1"),
#   tabPanel("Tab 2")
# )

## -----------------------------------------------------------------------------
# create_theme(
#   theme = "default",
#   ...,
#   output_file = "my-custom-theme.css"
# )