Create a rounded action button.
Arguments
- inputId
The
input
slot that will be used to access the value.- icon
An icon to appear on the button.
- status
Color of the button.
- size
Size of the button : default, lg, sm, xs.
- ...
Named attributes to be applied to the button.
Examples
if (interactive()) {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
tags$h3("Rounded actionBution"),
circleButton(inputId = "btn1", icon = icon("gear")),
circleButton(
inputId = "btn2",
icon = icon("sliders"),
status = "primary"
),
verbatimTextOutput("res1"),
verbatimTextOutput("res2")
)
server <- function(input, output, session) {
output$res1 <- renderPrint({
paste("value button 1:", input$btn1)
})
output$res2 <- renderPrint({
paste("value button 2:", input$btn2)
})
}
shinyApp(ui, server)
}