Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/dreamRs/fresh
Fresh shiny themes
https://github.com/dreamRs/fresh
bootstrap r shiny shiny-applications shiny-themes
Last synced: 3 months ago
JSON representation
Fresh shiny themes
- Host: GitHub
- URL: https://github.com/dreamRs/fresh
- Owner: dreamRs
- License: gpl-3.0
- Created: 2019-07-31T10:12:21.000Z (over 5 years ago)
- Default Branch: master
- Last Pushed: 2024-06-26T11:28:51.000Z (5 months ago)
- Last Synced: 2024-06-28T10:24:54.722Z (4 months ago)
- Topics: bootstrap, r, shiny, shiny-applications, shiny-themes
- Language: SCSS
- Homepage: https://dreamrs.github.io/fresh/
- Size: 3.23 MB
- Stars: 223
- Watchers: 5
- Forks: 10
- Open Issues: 11
-
Metadata Files:
- Readme: README.md
- License: LICENSE.md
Awesome Lists containing this project
- awesome-shiny-extensions - fresh - Create fresh themes for use in shiny & shinydashboard applications and flexdashboard documents. (Theming / Theme Customization)
- jimsghstars - dreamRs/fresh - Fresh shiny themes (SCSS)
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.
[](https://CRAN.R-project.org/package=fresh)
[](https://www.repostatus.org/#active)
[](https://lifecycle.r-lib.org/articles/stages.html#maturing)
[](https://github.com/dreamRs/fresh/actions/workflows/R-CMD-check.yaml)
[](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:
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 :
Obtain this :
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 :
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")`.