View source: R/bulma-sidebar.R
bulmaSidebar | R Documentation |
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) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.