buttonGroup | R Documentation |
Group of buttons.
buttonGroup(..., class = "")
... |
Any |
class |
Any additional class. |
library(shiny) ui <- fluidPage( theme = bslib::bs_theme(version = 5L), buttonGroup( actionButton("first", "First", class = "btn-primary"), actionButton("second", "Second", class = "btn-warning"), actionButton("third", "Third", class = "btn-success") ) ) server <- \(input, output, session){ } if(interactive()) shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.