R: Change the value of a pretty checkbox on the client

updatePrettyCheckboxGroup {shinyWidgets}

R Documentation

Change the value of a pretty checkbox on the client

Description

Change the value of a pretty checkbox on the client

Usage

updatePrettyCheckboxGroup(session, inputId, label = NULL, choices = NULL,
  selected = NULL, inline = FALSE, choiceNames = NULL,
  choiceValues = NULL, prettyOptions = list())

Arguments

`session`	The `session` object passed to function given to shinyServer.
`inputId`	The id of the input object.
`label`	The label to set for the input object.
`choices`	The choices to set for the input object, updating choices will reset parameters like `status`, `shape`, ... on the checkboxes, you can re-specify (or change them) in argument `prettyOptions`.
`selected`	The value to set for the input object.
`inline`	If `TRUE`, render the choices inline (i.e. horizontally).
`choiceNames`	The choices names to set for the input object.
`choiceValues`	The choices values to set for the input object.
`prettyOptions`	Arguments passed to `prettyCheckboxGroup` for styling checkboxes.

Examples

## Not run: 

if (interactive()) {

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  tags$h1("Update pretty checkbox group"),
  br(),

  fluidRow(
    column(
      width = 6,
      prettyCheckboxGroup(inputId = "checkgroup1",
                          label = "Update my value!",
                          choices = month.name[1:4],
                          status = "danger",
                          icon = icon("remove")),
      verbatimTextOutput(outputId = "res1"),
      br(),
      checkboxGroupInput(
        inputId = "update1", label = "Update value :",
        choices = month.name[1:4], inline = TRUE
      )
    ),
    column(
      width = 6,
      prettyCheckboxGroup(inputId = "checkgroup2",
                          label = "Update my choices!", thick = TRUE,
                          choices = month.name[1:4],
                          animation = "pulse", status = "info"),
      verbatimTextOutput(outputId = "res2"),
      br(),
      actionButton(inputId = "update2", label = "Update choices !")
    )
  )

)

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

  output$res1 <- renderPrint(input$checkgroup1)

  observeEvent(input$update1, {
    if (is.null(input$update1)) {
      selected_ <- character(0) # no choice selected
    } else {
      selected_ <- input$update1
    }
    updatePrettyCheckboxGroup(session = session, inputId = "checkgroup1", selected = selected_)
  }, ignoreNULL = FALSE)

  output$res2 <- renderPrint(input$checkgroup2)
  observeEvent(input$update2, {
    updatePrettyCheckboxGroup(
      session = session, inputId = "checkgroup2",
      choices = sample(month.name, 4), prettyOptions = list(animation = "pulse", status = "info")
    )
  }, ignoreInit = TRUE)

}

shinyApp(ui, server)

}



## End(Not run)

[Package shinyWidgets version 0.4.3 Index]