shinyglide
is an R package which provides carousel-like or assistant-like components to shiny applications, thanks to the Glide JavaScript library.
It allows to create this sort of app:
Or can be integrated into an existing app to create an “assistant-like” interface:
shiny::conditionalPanel
)You can install the stable version with :
install.packages("shinyglide")
And the development version with :
remotes::install_github("juba/shinyglide")
A shinyglide
component is created with the glide()
function. This component is then divided intro screens with the screen()
function.
Here is the code of a very basic app :
```{r} library(shiny) library(shinyglide)
ui <- fixedPage(style = “max-width: 500px;”, titlePanel(“Simple shinyglide app”),
glide( height = “350px”, screen( p(“This is a very simple shinyglide application.”), p(“Please click on Next to go to the next screen.”) ), screen( p(“Please choose a value.”), numericInput(“n”, “n”, value = 10, min = 10) ), screen( p(“And here is the result.”), plotOutput(“plot”) ) ) )
server <- function(input, output, session) {
output$plot <- renderPlot({ hist( rnorm(input$n), main = paste(“n =”, input$n), xlab = “” ) })
}
shinyApp(ui, server)
For more information, see the three available vignettes :
- [Introduction to shinyglide](https://juba.github.io/shinyglide/articles/a_introduction.html)
- [Conditional controls and screen output](https://juba.github.io/shinyglide/articles/b_conditionals.html)
- [Custom controls](https://juba.github.io/shinyglide/articles/c_custom_controls.html)
## Development notes
This package uses [packer](https://github.com/JohnCoene/packer) to manage JavaScript source code and dependencies. If you want to modify it, you'll need a working installation of [Node.js](https://nodejs.org/en/).
After cloning this repository, run the following in a terminal at the project root :
```sh
npm install
Then, if you modify the JavaScript code in srcjs
, you’ll have to run the following command to bundle and update the widget JavaScript code :
packer::bundle_dev()
If you want to ship a minimized production version, use :
packer::bundle_prod()