Brings pushbar.js to Shiny; create off-canvas sliders for inputs, outputs or any other content.
Install with remotes
# install.packages("remotes")
remotes::install_github("JohnCoene/pushbar")pushbar_deps anywhere in your ui.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.pushbar in your ui to include content in
pushbars.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).
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)