Buttons Group Radio Input Control
Create buttons grouped that act like radio buttons.
radioGroupButtons( inputId, label = NULL, choices = NULL, selected = NULL, status = "default", size = "normal", direction = "horizontal", justified = FALSE, individual = FALSE, checkIcon = list(), width = NULL, choiceNames = NULL, choiceValues = NULL, disabled = FALSE )
inputId |
The |
label |
Input label. |
choices |
List of values to select from (if elements of the list are named then that name rather than the value is displayed to the user). |
selected |
The initially selected value. |
status |
Add a class to the buttons, you can use Bootstrap status like 'info', 'primary', 'danger', 'warning' or 'success'.
Or use an arbitrary strings to add a custom class, e.g. : with |
size |
Size of the buttons ('xs', 'sm', 'normal', 'lg') |
direction |
Horizontal or vertical |
justified |
If TRUE, fill the width of the parent div |
individual |
If TRUE, buttons are separated. |
checkIcon |
A list, if no empty must contain at least one element named 'yes' corresponding to an icon to display if the button is checked. |
width |
The width of the input, e.g. '400px', or '100%'. |
choiceNames, choiceValues |
Same as in |
disabled |
Initialize buttons in a disabled state (users won't be able to select a value). |
A buttons group control that can be added to a UI definition.
if (interactive()) {
ui <- fluidPage(
tags$h1("radioGroupButtons examples"),
radioGroupButtons(
inputId = "somevalue1",
label = "Make a choice: ",
choices = c("A", "B", "C")
),
verbatimTextOutput("value1"),
radioGroupButtons(
inputId = "somevalue2",
label = "With custom status:",
choices = names(iris),
status = "primary"
),
verbatimTextOutput("value2"),
radioGroupButtons(
inputId = "somevalue3",
label = "With icons:",
choices = names(mtcars),
checkIcon = list(
yes = icon("check-square"),
no = icon("square-o")
)
),
verbatimTextOutput("value3")
)
server <- function(input, output) {
output$value1 <- renderPrint({ input$somevalue1 })
output$value2 <- renderPrint({ input$somevalue2 })
output$value3 <- renderPrint({ input$somevalue3 })
}
shinyApp(ui, server)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.