Create fresh themes for use in{shiny},{shinydashboard}and{bs4Dash}applications and {flexdashboard} documents.
You can install stable version from CRAN with:
install.packages("fresh")You can install the development version of fresh from GitHubwith:
remotes::install_github("dreamRs/fresh")Create a theme to personalize your{bs4Dash}applications:
Create the theme:
bs4DashTheme<-bs4Dash_theme(primary ="#5E81AC",secondary ="#B48EAD",success ="#A3BE8C",danger ="#BF616A","sidebar-light-bg"="#3B4252","sidebar-light-color"="#E5E9F0","main-bg"="#2E3440","body-color"="#ECEFF4","card-bg"="#4C566A",# bs4Card() background"white"="#E5E9F0","info-box-bg"="#4C566A",# bs4InfoBox() backgrounddark ="#272c30",# bs4DashNavbar(status = "dark") background,"gray-600"="#FFF")Use your theme:
bs4DashPage(title ="bs4Dash custom theme",navbar =bs4DashNavbar(skin ="light"),sidebar =bs4DashSidebar(title ="bs4Dash custom theme",skin ="light",# ... ),body =bs4DashBody(use_theme(bs4DashTheme),# <-- use the theme# ... ))See more information here:Variablesfor {bs4dash} or in R console:vignette("vars-bs4dash", package = "fresh").
Create new themes to use in shiny applications withfluidPage ornavbarPage. From the defaulttheme :
Obtain this :
This theme was creating with following code:
create_theme(theme ="default",bs_vars_navbar(default_bg ="#3f2d54",default_color ="#FFFFFF",default_link_color ="#FFFFFF",default_link_active_color ="#FFFFFF" ),bs_vars_color(gray_base ="#354e5c",brand_primary ="#75b8d1",brand_success ="#c9d175",brand_info ="#758bd1",brand_warning ="#d1ab75",brand_danger ="#d175b8" ),bs_vars_state(success_text ="#FFF",success_bg ="#c9d175",success_border ="#c9d175",info_text ="#FFF",info_bg ="#3f2d54",info_border ="#3f2d54",danger_text ="#FFF",danger_bg ="#d175b8",danger_border ="#d175b8" ),bs_vars_wells(bg ="#FFF",border ="#3f2d54" ),output_file ="www/mytheme.css")Use the created theme like this:
navbarPage(title ="My application",theme ="mytheme.css", ...)Customize colors and other settings used in{shinydashboard}applications :
Create the theme:
mytheme<-create_theme(adminlte_color(light_blue ="#434C5E" ),adminlte_sidebar(width ="400px",dark_bg ="#D8DEE9",dark_hover_bg ="#81A1C1",dark_color ="#2E3440" ),adminlte_global(content_bg ="#FFF",box_bg ="#D8DEE9",info_box_bg ="#D8DEE9" ))Use your theme:
dashboardPage(header =dashboardHeader(title ="My dashboard"),sidebar =dashboardSidebar(# ... ),body =dashboardBody(use_theme(mytheme),# <-- use the theme# ... ))See more information here:Variablesfor {shinydashboard} or in R console:vignette("vars-shinydashboard", package = "fresh").