Получить доступные варианты от блестящего виджета

Question

Возможно ли получить доступные варианты для блестящего виджета (т. Е. Все возможные флажки с флажкаВозможность)?

У меня есть флажок, где параметры, доступные для проверки, зависят от другого ввода - они обновляются наблюдателями. Затем предположим, что я хочу кнопку, которую пользователь может щелкнуть, и все доступные флажки будут проверяться.

Вот пример, где я пытаюсь обновить флажки с помощью updateCheckboxGroupInput и переменной input$options. Однако это не работает, потому что input$options - это только выбранные в данный момент поля, поэтому кнопка ничего не делает.

Есть ли уже переменная, которая содержит все доступные флажки, или необходима для поддержания другой реактивной переменной с этой информацией?

library(shiny) 

shinyApp(
    shinyUI(
     fluidPage(
      uiOutput('ui') 
     ) 
    ), 

    shinyServer(function(session, input, output) { 
     output$ui <- renderUI({ 
      inputPanel(
       checkboxGroupInput('options', 'Current Options:', 
            choices=letters, selected='a', inline=TRUE), 
       column(width = 2, 
        actionButton('subset', 'Subset the options'), 
        actionButton('selectAll', 'Select All')) 
      ) 
     }) 

     ## Observers for buttons 
     observeEvent(input$subset, 
        updateCheckboxGroupInput(session, 
               inputId='options', 
               choices=sample(letters, 10), 
               inline=TRUE) 
        ) 

     observeEvent(input$selectAll, 
        updateCheckboxGroupInput(session, 
               inputId='options', 
               ## *** What do I put here for selected? *** 
               selected=input$options, 
               inline=TRUE) 
        ) 
    }) 
) 

Answer 1

Существует не простой блестящий встроенный способ сделать это. Вам нужно будет либо использовать JavaScript, чтобы узнать, что это за опции, либо сохранить параметры в реактивной переменной