Shiny: селектор «все или ничего» для групп флажков

Созданный на 16 нояб. 2012 · 3Комментарии · Источник: rstudio/shiny

Хотелось бы, чтобы checkboxGroupInput (необязательно) имело поле «выбрать все/не выбрать ничего», связанное с группой.

Источник

HarlanH

Самый полезный комментарий

Я думаю, вы можете добиться этого с помощью updateCheckboxGroupInput() . Пример:

myChoices <- letters[1:5]
runApp(list(
  ui = basicPage(
    checkboxGroupInput('foo', 'FOO', myChoices),
    checkboxInput('bar', 'All/None')
  ),
  server = function(input, output, session) {
    observe({
      updateCheckboxGroupInput(
        session, 'foo', choices = myChoices,
        selected = if (input$bar) myChoices
      )
    })
  }
))

yihui 11 янв. 2014

👍3

Все 3 Комментарий

Я думаю, вы можете добиться этого с помощью updateCheckboxGroupInput() . Пример:

myChoices <- letters[1:5]
runApp(list(
  ui = basicPage(
    checkboxGroupInput('foo', 'FOO', myChoices),
    checkboxInput('bar', 'All/None')
  ),
  server = function(input, output, session) {
    observe({
      updateCheckboxGroupInput(
        session, 'foo', choices = myChoices,
        selected = if (input$bar) myChoices
      )
    })
  }
))

yihui 11 янв. 2014

👍3

Мне это нравится! Элегантное решение!