R: Change the value of a radio group buttons input on the client

updateRadioGroupButtons {shinyWidgets} | R Documentation

## Change the value of a radio group buttons input on the client

### Description

Change the value of a radio group buttons input on the client

### Usage

    updateRadioGroupButtons(session, inputId, label = NULL, choices = NULL,
      selected = NULL, status = "default", size = "normal",
      checkIcon = list(), choiceNames = NULL, choiceValues = NULL)

### Arguments

`session` | The session object passed to function given to shinyServer.
`inputId` | The id of the input object.
`label` | The label to set.
`choices` | The new choices for the input.
`selected` | The value selected.
`status` | Status, only used if choices is not NULL.
`size` | Size, only used if choices is not NULL.
`checkIcon` | Icon, only used if choices is not NULL.
`choiceNames, choiceValues` | List of names and values, an alternative to choices.

### Examples

    ## Not run:

    if (interactive()) {

    library("shiny")
    library("shinyWidgets")

    ui <- fluidPage(
      radioGroupButtons(
        inputId = "somevalue",
        choices = c("A", "B", "C"),
        label = "My label"
      ),

      verbatimTextOutput(outputId = "res"),

      actionButton(inputId = "updatechoices", label = "Random choices"),
      pickerInput(
        inputId = "updateselected", label = "Update selected:",
        choices = c("A", "B", "C"), multiple = FALSE
      ),
      textInput(inputId = "updatelabel", label = "Update label")
    )

    server <- function(input, output, session) {

      output$res <- renderPrint({
        input$somevalue
      })

      observeEvent(input$updatechoices, {
        newchoices <- sample(letters, sample(2:6))
        updateRadioGroupButtons(
          session = session, inputId = "somevalue",
          choices = newchoices
        )
        updatePickerInput(
          session = session, inputId = "updateselected",
          choices = newchoices
        )
      })

      observeEvent(input$updateselected, {
        updateRadioGroupButtons(
          session = session, inputId = "somevalue",
          selected = input$updateselected
        )
      }, ignoreNULL = TRUE, ignoreInit = TRUE)

      observeEvent(input$updatelabel, {
        updateRadioGroupButtons(
          session = session, inputId = "somevalue",
          label = input$updatelabel
        )
      }, ignoreInit = TRUE)

    }

    shinyApp(ui = ui, server = server)

    }

    ## End(Not run)

[Package shinyWidgets version 0.4.3 Index]