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.