Description Usage Arguments Details Note Examples
Set up pushbar.
Creates element containing pushbar content.
1 2 3 4 5 6 | pushbar_deps()
setup_pushbar(blur = FALSE, overlay = TRUE)
pushbar(..., id = from, from = c("left", "right", "top", "bottom"),
class = NULL, style = pushbar_style())
|
blur |
Whether to blur the background when pushbar is opened. |
overlay |
Whether to darken the background when pushbar is opened. |
... |
Any other valid tags. |
id |
Id of pushbar. |
from |
Wherefrom the pushbar should open. |
class |
Additional class to pass to |
style |
Valid css defaults to |
Creates a div
.
You are advised to add padding
inside your pushbar i.e.: style="padding:20px;"
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.