# NOT RUN {
library(shiny)
ui <- fluidPage(
pushbar_deps(),
actionButton("open", "Open pushbar"),
pushbar(
h4("HELLO")
)
)
server <- function(input, output, session){
setup_pushbar()
observeEvent(input$open, {
pushbar_open()
})
}
if(interactive()) shinyApp(ui, server)
# }
Run the code above in your browser using DataLab