Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/RinteRface/bs4Dash
Bootstrap 4 shinydashboard using AdminLTE3
https://github.com/RinteRface/bs4Dash
bootstrap4 dashboard-templates hacktoberfest2022 r shiny shiny-apps shinydashboard
Last synced: about 2 months ago
JSON representation
Bootstrap 4 shinydashboard using AdminLTE3
- Host: GitHub
- URL: https://github.com/RinteRface/bs4Dash
- Owner: RinteRface
- License: other
- Created: 2018-06-07T10:50:43.000Z (over 6 years ago)
- Default Branch: master
- Last Pushed: 2024-09-06T11:56:45.000Z (4 months ago)
- Last Synced: 2024-10-29T15:26:38.577Z (2 months ago)
- Topics: bootstrap4, dashboard-templates, hacktoberfest2022, r, shiny, shiny-apps, shinydashboard
- Language: R
- Homepage: https://bs4dash.rinterface.com
- Size: 50.8 MB
- Stars: 439
- Watchers: 16
- Forks: 81
- Open Issues: 86
-
Metadata Files:
- Readme: README.md
- Changelog: NEWS.md
- License: LICENSE
- Code of conduct: CODE_OF_CONDUCT.md
Awesome Lists containing this project
- awesome-shiny-extensions - bs4Dash - Bootstrap 4 Shiny dashboards using AdminLTE 3. (Theming / Dashboard Theming)
- jimsghstars - RinteRface/bs4Dash - Bootstrap 4 shinydashboard using AdminLTE3 (R)
README
# bs4Dash 
[](https://github.com/RinteRface/bs4Dash/actions)
[](https://CRAN.R-project.org/package=bs4Dash)
[](https://CRAN.R-project.org/package=bs4Dash)
[](https://www.rpackages.io/package/bs4Dash)
[](https://codecov.io/gh/RinteRface/bs4Dash?branch=master)
> Bootstrap 4 shinydashboard using [AdminLTE3](https://github.com/ColorlibHQ/AdminLTE)
## From {shinydashboard} to {bs4Dash}
Taking the simple `{shinydashboard}` example:
```r
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(),
dashboardBody(
# Boxes need to be put in a row (or column)
fluidRow(
box(plotOutput("plot1", height = 250)),
box(
title = "Controls",
sliderInput("slider", "Number of observations:", 1, 100, 50)
)
)
)
)
server <- function(input, output) {
set.seed(122)
histdata <- rnorm(500)
output$plot1 <- renderPlot({
data <- histdata[seq_len(input$slider)]
hist(data)
})
}
shinyApp(ui, server)
```
Moving to `{bs4Dash}` is rather simple, as we just replace `library(shinydashboard)`:
```r
library(bs4Dash)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(),
dashboardBody(
# Boxes need to be put in a row (or column)
fluidRow(
box(plotOutput("plot1", height = 250)),
box(
title = "Controls",
sliderInput("slider", "Number of observations:", 1, 100, 50)
)
)
)
)
server <- function(input, output) {
set.seed(122)
histdata <- rnorm(500)
output$plot1 <- renderPlot({
data <- histdata[seq_len(input$slider)]
hist(data)
})
}
shinyApp(ui, server)
```
## Installation
```r
# latest devel version
devtools::install_github("RinteRface/bs4Dash")
# from CRAN
install.packages("bs4Dash")
```
## Demo
You may also run:
```r
library(bs4Dash)
bs4DashGallery()
```
## Issues
Issues are listed [here](https://github.com/RinteRface/bs4Dash/issues).
## Acknowledgement
I warmly thank [Glyphicons](https://www.glyphicons.com) creator for providing them for free with Bootstrap.
## Code of Conduct
Please note that the bs4Dash project is released with a [Contributor Code of Conduct](https:/contributor-covenant.org/version/2/0/CODE_OF_CONDUCT.html). By contributing to this project, you agree toabide by its terms.