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 () .

مع أطيب التحيات