Create a rigth sidebar https://wikiki.github.io/components/quickview/.
bulmaSidebar(..., header_title = NULL, footer_content = NULL)
... | Any element to include in the sidebar (such as input elements, ...) |
---|---|
header_title | Sidebar header. |
footer_content | Footer content. |
Not compatible with mobile display.
David Granjon, dgranjon@ymail.com
if (interactive()) { library(shiny) ui <- bulmaPage( bulmaContainer( bulmaTitle("Right sidebar demo"), bulmaSidebarTrigger() ), bulmaSidebar( header_title = "test", bulmaSubtitle("Input elements"), bulmaSliderInput("slider", color = "warning", 10, 3, 150), bulmaSwitchInput( inputId = "switch3", label = "switch 3", value = TRUE, color = "danger", size = "small", style = "thin", rtl = FALSE, disabled = FALSE), bulmaSubtitle("Other Stuff") ), plotOutput("plot") ) server <- function(input, output, session) { data <- reactive({ rnorm(input$slider, 20, 4) }) output$plot <- renderPlot({ hist(data()) }) } shinyApp(ui = ui, server = server) }