Shiny: 复选框组的全有或全无选择器

创建于 2012-11-16 · 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 于 2014-01-11

👍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 于 2014-01-11

👍3

我喜欢这个！一个优雅的解决方案！