| 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.