https://github.com/gadenbuie/shinyThings
Reusable Shiny Modules and Other Shiny Things
https://github.com/gadenbuie/shinyThings
bootstrap-components rstats shiny
Last synced: 4 months ago
JSON representation
Reusable Shiny Modules and Other Shiny Things
- Host: GitHub
- URL: https://github.com/gadenbuie/shinyThings
- Owner: gadenbuie
- License: other
- Created: 2019-01-25T18:49:58.000Z (about 6 years ago)
- Default Branch: main
- Last Pushed: 2021-10-29T04:12:10.000Z (over 3 years ago)
- Last Synced: 2024-12-01T17:12:50.698Z (4 months ago)
- Topics: bootstrap-components, rstats, shiny
- Language: R
- Homepage: https://pkg.garrickadenbuie.com/shinyThings
- Size: 2.13 MB
- Stars: 25
- Watchers: 3
- Forks: 3
- Open Issues: 2
-
Metadata Files:
- Readme: README.Rmd
- Changelog: NEWS.md
- License: LICENSE
Awesome Lists containing this project
- jimsghstars - gadenbuie/shinyThings - Reusable Shiny Modules and Other Shiny Things (R)
README
---
output: github_document
---
```{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 .
```{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)
})
```