pushbar | R Documentation |
Set up pushbar.
Creates element containing pushbar content.
pushbar_deps() setup_pushbar(blur = FALSE, overlay = TRUE, esc_close = 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. |
esc_close |
Whether to enable pressing 'ESC' key to close the pushbar |
... |
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;"
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.