-
Notifications
You must be signed in to change notification settings - Fork 81
/
index.Rmd
137 lines (103 loc) · 3.22 KB
/
index.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
---
output: github_document
always_allow_html: true
---
```{r setup, include=FALSE}
library(bslib)
library(bs4Dash)
knitr::opts_chunk$set(echo = TRUE)
```
# bs4Dash
[](https://github.com/RinteRface/bs4Dash/actions)
[](https://CRAN.R-project.org/package=bs4Dash)
[](https://CRAN.R-project.org/package=bs4Dash)
[](https://CRAN.R-project.org/package=bs4Dash)
[](https://codecov.io/gh/RinteRface/bs4Dash?branch=master)
> Bootstrap 4 shinydashboard using [AdminLTE3](https://github.com/ColorlibHQ/AdminLTE)
<br>
```{r showcase-code, eval=TRUE, echo=FALSE}
card(
bs4Dash:::create_link_iframe(bs4Dash:::shinylive_links["inst/examples/showcase"]),
full_screen = TRUE,
style = "margin: 0 auto; float: none;"
)
```
<br>
<div class="card">
<a href="https://analytichealth.co.uk/pharmly-portal/" target="_blank"><img src="https://analytichealth.co.uk/wp-content/uploads/2021/10/PA-bs4Dash.gif" alt="bs4Dash usage medical dashboard"></a>
</div>
## 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.