Shiny: 체크박스 그룹을 위한 all-or-nothing 선택기

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
      )
    })
  }
))

나는 이것을 좋아한다! 우아한 솔루션!

그 제안을 다시 여는 것이 적절할 수 있습니까?

shiny 를 flexdashboard $ 와 함께 사용할 때 기본 사용자는 checkboxGroupInput () 내에서 직접 간단한 옵션을 사용하는 것이 더 쉬울 것입니다.

친애하는