Nothing
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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.