-
Notifications
You must be signed in to change notification settings - Fork 3
/
README.Rmd
143 lines (104 loc) · 3.89 KB
/
README.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
138
139
140
141
142
143
---
output: github_document
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r setup, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
eval = FALSE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
# shinyThings
[shiny]: https://shiny.rstudio.com
**shinyThings** is a collection of reusable [Shiny] components (modules and inputs).
> My personal DRY storage for [Shiny] bits I've used in my projects.
## Installation
You can install shinyThings from Github via
```r
# install.packages("devtools")
devtools::install_github("gadenbuie/shinyThings")
```
## Components
- [Dropdown Buttons](#dropdownbutton)
- [Pagination UI](#pagination)
- [Toggle Button Groups](#toggle-button-groups)
- [Radio Switch Buttons](#radio-switch-buttons)
- [Undo/Redo History](#undoredo-history)
### dropdownButton
Implements [Bootstrap 3 Button Dropdowns](https://getbootstrap.com/docs/3.3/components/#btn-dropdowns) using Shiny modules.
```{r}
# Try it out
shinyThings::buttonGroupDemo()
```
## Pagination
Implements [Bootstrap 3 pagination and pagers](https://getbootstrap.com/docs/3.3/components/#pagination) using Shiny modules.
```{r}
# Try it out
shinyThings::pagerDemo()
```
### Toggle Button Groups
Implements groups of toggle buttons using [Bootstrap 3 button toolbars](https://getbootstrap.com/docs/3.3/components/#btn-groups) as a Shiny input.
Each button can be toggled **on** or **off**, and the group may be limited to a single **on** button at a time, or multiple active buttons.
(For one-button-always-selected behavior, see [radio switch buttons](#radio-switch-buttons) below.)
```{r}
# Try it out
shinyThings::buttonGroupDemo()
# UI Side
shinyThings::buttonGroup("input-id", choices = letters[1:3])
# Server Side
shinyThings::updateButtonGroupValue("input-id", values = "b")
```
### Radio Switch Buttons
Implements a button-styled version of `shiny::radioButtons()`.
One button is always active (unless unset by the app).
Adapted from CSS code by Mike Hemberger described in <https://thestizmedia.com/radio-buttons-as-toggle-buttons-with-css/>.
```{r}
# Try it out
shinyThings::radioSwitchButtonsDemo()
# UI Side ----
# Set Default style
shinyThings::radioSwitchButtons_default_style(selected_background = "#00589a")
# Create input
shinyThings::radioSwitchButtons("input-id", choices = letters[1:5])
# Server Side ----
shinyThings::updateRadioSwitchButtons("input-id", selected = "b")
```
### Undo/Redo History
A Shiny module for undo/redo history.
The Shiny module accepts an arbitrary reactive data value.
Changes in the state of this reactive value are tracked and added to the user's history.
The user can then repeatedly undo and redo to walk through this stack.
The module returns the current selected value of the reactive from this historical stack,
or `NULL` when the app state was changed by the user.
```{r}
# Try it out
shinyThings::undoHistoryDemo()
# UI Side ----
# UI with undo/redo buttons
undoHistoryUI("module-id")
# Server Side ----
# Create a reactive value whose state will be tracked. Note that you control
# the structure of the data being tracked and also how the data will be
# restored. `undo_app_state` will have the same structure.
undo_app_state <- undoHistory("module-id", value = reactive({
list(
text = input$a_text_input_id,
selected = input$a_select_input_id
)
}))
# Use an observer to update inputs as required as the user steps through the
# undo/redo history stack.
observe({
req(!is.null(undo_app_state))
updateTextInput(session, "a_text_input_id", value = undo_app_state()$text)
updateSelectInput(session, "a_select_input_id", selected = undo_app_state()$selected)
})
```