Shiny: चेकबॉक्स समूहों के लिए ऑल-ऑर-नथिंग चयनकर्ता

मुझे लगता है कि आप इसे 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 () के भीतर एक सरल विकल्प रखना आसान होगा।

सादर