cran / pushbar Goto Github PK

View Code? Open in Web Editor NEW

:exclamation: This is a read-only mirror of the CRAN R package repository. pushbar — Create Sliders for 'Shiny'. Homepage: https://github.com/JohnCoene/pushbar Report bugs for this package: https://github.com/JohnCoene/pushbar/issues

License: Other

R 36.48% JavaScript 46.90% CSS 16.61%

pushbar's Introduction

pushbar

Brings pushbar.js to Shiny; create off-canvas sliders for inputs, outputs or any other content.

Installation

Install with remotes

# install.packages("remotes")
remotes::install_github("JohnCoene/pushbar")

How to use

Include pushbar_deps anywhere in your ui.
Include setup_pushbar at the top of your server function, it'll also let you determine whether to use blur and overlay when pushbars are opened.
Use pushbar in your ui to include content in pushbars.
Use pushbar_open and pushbar_close to programatically (server-side) open and close the pushbars.

Also includes an event (see example) to capture whether a pushbar is opened (input$pushbarID_pushbar_opened).

Example

Live Demo

library(shiny)
library(pushbar)

ui <- fluidPage(
   pushbar_deps(),
	 br(),
   actionButton("open", "Open pushbar"),
   pushbar(
     h4("HELLO"),
     id = "myPushbar", # add id to get event
     actionButton("close", "Close pushbar")
   ),
   fluidRow(
     column(5),
     column(5, span("Is a pushbar opened?"), verbatimTextOutput("ev"))
   )
 )
 
 server <- function(input, output, session){

   setup_pushbar() # setup

   observeEvent(input$open, {
     pushbar_open(id = "myPushbar")
   })  

   observeEvent(input$close, {
     pushbar_close()
   })  

   output$ev <- renderPrint({
     input$myPushbar_pushbar_opened
   })
 }
 
 if(interactive()) shinyApp(ui, server)

Recommend Projects