Ecosyste.ms: Awesome

An open API service indexing awesome lists of open source software.

Awesome Lists | Featured Topics | Projects

https://github.com/dreamrs/fresh

Fresh shiny themes
https://github.com/dreamrs/fresh

bootstrap r shiny shiny-applications shiny-themes

Last synced: 3 days ago
JSON representation

Fresh shiny themes

Awesome Lists containing this project

README 

        
# fresh 



> Create fresh themes for use in [{shiny}](https://github.com/rstudio/shiny), [{shinydashboard}](https://github.com/rstudio/shinydashboard) and [{bs4Dash}](https://github.com/RinteRface/bs4Dash) applications and {flexdashboard} documents.



[![version](http://www.r-pkg.org/badges/version/fresh)](https://CRAN.R-project.org/package=fresh)

[![Project Status: Active The project has reached a stable, usable state and is being actively developed.](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active)

[![Lifecycle: maturing](https://img.shields.io/badge/lifecycle-maturing-blue.svg)](https://lifecycle.r-lib.org/articles/stages.html#maturing)

[![R-CMD-check](https://github.com/dreamRs/fresh/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/dreamRs/fresh/actions/workflows/R-CMD-check.yaml)

[![Codecov test coverage](https://codecov.io/gh/dreamRs/fresh/branch/master/graph/badge.svg)](https://app.codecov.io/gh/dreamRs/fresh?branch=master)



## Installation



You can install stable version from CRAN with:



```r

install.packages("fresh")

```



You can install the development version of fresh from GitHub with:



```r

remotes::install_github("dreamRs/fresh")

```



## bs4Dash



Create a theme to personalize your [{bs4Dash}](https://github.com/RinteRface/bs4Dash) applications:



![](man/figures/bs4dash.png)



Create the theme:



```r

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() background

  dark = "#272c30", #  bs4DashNavbar(status = "dark") background,

  "gray-600" = "#FFF"

)

```



Use your theme:



```r

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: [Variables for {bs4dash}](https://dreamrs.github.io/fresh/articles/vars-bs4dash.html) or in R console: `vignette("vars-bs4dash", package = "fresh")`.



## shiny



Create new themes to use in shiny applications with `fluidPage` or `navbarPage`. From the default theme :



![](man/figures/shiny-default.png)



Obtain this :



![](man/figures/shiny-custom.png)



This theme was creating with following code:



```r

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: 



```r

navbarPage(

  

  title = "My application",

  theme = "mytheme.css",

  

  ...

)

```



## shinydashboard



Customize colors and other settings used in [{shinydashboard}](https://github.com/rstudio/shinydashboard) applications :



![](man/figures/shinydashboard.png)



Create the theme:



```r

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:



```r

dashboardPage(

  header = dashboardHeader(title = "My dashboard"),

  sidebar = dashboardSidebar(

    # ...

  ),

  body = dashboardBody(

    

    use_theme(mytheme), # <-- use the theme

    

    # ...

    

  )

)

```



See more information here: [Variables for {shinydashboard}](https://dreamrs.github.io/fresh/articles/vars-shinydashboard.html) or in R console: `vignette("vars-shinydashboard", package = "fresh")`.