radioGroupButtons {shinyWidgets}

R Documentation

Buttons Group Radio Input Control

Description

Create buttons grouped that act like radio buttons.

Usage

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
)

Arguments

inputId	The input slot that will be used to access the value.
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 status = 'myClass', buttons will have class btn-myClass.
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 radioButtons. List of names and values, respectively, that are displayed to the user in the app and correspond to the each choice (for this reason, choiceNames and choiceValues must have the same length).
disabled	Initialize buttons in a disabled state (users won't be able to select a value).

Value

A buttons group control that can be added to a UI definition.

See Also

updateRadioGroupButtons

Examples

Run examples

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)

}

---