Изменить элементы checkboxGroupInput вне пространства имен блестящего модуля

Question

Я хочу реализовать модуль отмены выбора флажка, однако я столкнулся с проблемой при попытке изменить объект checkboxGroupInput, который определен вне пользовательского интерфейса модуля.

Вот пример приложения, иллюстрирующего мою проблему:

library(shiny) # Version 1.0.5

myModuleUI = function(id) {
  ns = NS(id)
  tagList(
    actionButton(inputId = ns("reset_checkbox"), label = "Reset checkbox")
  )
}

myModule = function(input, output, session) {
  observeEvent(input$reset_slider, {
    for(el in c("var1", "var2", "var3")){
      updateCheckboxGroupInput(session,
                               inputId  = el,
                               selected = "")
    }
  })
}

server <- function(input, output, session) {
  callModule(myModule, id = "A")
}


ui <- fluidPage(
  checkboxGroupInput("var1", "Variables to show:",
                     c("Cylinders" = "cyl",
                       "Transmission" = "am",
                       "Gears" = "gear"),
                     selected = "cyl"),
  checkboxGroupInput("var2", "Variables to show:",
                     c("Cylinders" = "cyl",
                       "Transmission" = "am",
                       "Gears" = "gear"),
                     selected = "am"),
  checkboxGroupInput("var3", "Variables to show:",
                     c("Cylinders" = "cyl",
                       "Transmission" = "am",
                       "Gears" = "gear"),
                     selected = "gear"),
  myModuleUI(id = "A")
)


shinyApp(ui = ui, server = server)