R Shiny checkboxGroupInput - установите все флажки нажатием

У меня есть приложение R Shiny, которое содержит checkboxGroupInput, и я пытаюсь создать кнопку «выбрать все», используя функцию updateCheckboxGroupInput. Вы можете увидеть полный код ниже, но в основном я определил группы cb следующим образом:

checkboxGroupInput("campaigns","Choose campaign(s):",campaigns_list)

А затем, нажав кнопку, вызовите функцию:

updateCheckboxGroupInput(session,"campaigns","Choose campaign(s):",choices=campaigns_list,selected=campaigns_list)

У меня есть указание на то, что функция запущена, но на самом деле она снимает флажки. Кстати, когда я поставил selected при определении cbGroupInput, он работал, но не с функцией.

Благодарность!

Это мой server.R:

library(shiny)
source('usefulFunctions.R')
shinyServer(function(input, output, session) {

  output$cascading <- renderUI({
    provider_id <- input$provider
    if (provider_id == "") return(NULL)
    campaigns_list <<- t(getCampaigns(provider_id))
    tagList(
      checkboxGroupInput("campaigns","Choose campaign(s):", 
                         choices = campaigns_list, selected = campaigns_list),
      actionLink("selectall","Select All")
      )
  })

  observe({
    if(is.null(input$selectall)) return(NULL)
    if (input$selectall > 0)
    {
      print(campaigns_list)
      updateCheckboxGroupInput(session,"campaigns","Choose campaign(s):",choices=campaigns_list,selected=campaigns_list)
    }
    })


})