UpdateSelectInput на основе значения, выбранного в отдельном модуле, не обновляется

Question

У меня проблемы с использованием updateSelectInput между двумя модулями в моем блестящем приложении. Я хочу, чтобы пользователь мог выбрать selectInput в одном модуле, и это позволит обновить выбранное значение в другом модуле. Я подозреваю, что есть проблема с пространствами имен или реактивностью, но я не могу решить это из предыдущих вопросов.

Извинения ниже не воспроизводимы, они просто включают биты, которые могут помочь идентифицировать проблему.

######################################### module 1 ####################################################
## spend ui ##
spend_benchmark_ui <- function(id) {
  ns <- NS(id)
  fluidPage(
    sidebarLayout(
      sidebarPanel(
        selectInput(ns('selected'), 'Select place', c("a","b","c"))
  )))}

## spend server ##
spend_benchmark_server <- function(input, output,session,test) {

  #update drop down given input from other charts
  observe({updateSelectInput(session, "selected", selected = test$selected)})
}


######################################### module 2 ####################################################
## outcomes ui ##
outcomes_benchmark_ui <- function(id) {
  # Create a namespace function using the provided id
  ns <- NS(id)

  fluidPage(
    ##Side Panel##
    sidebarLayout(
      sidebarPanel(
        selectInput(ns('selected'), 'Select area', c("a","b","c")))
  ))}

# outcomes server ##
outcomes_benchmark_server <- function(input, output,session) {

}


######################################### app ####################################################

server <- function(input, output, session) {
  test <<- callModule(outcomes_benchmark_server, 'outcomes_bench_page')
  callModule(spend_benchmark_server, 'spend_bench_page',test)
  callModule(outcomes_benchmark_server, 'outcomes_bench_page')
}

#note that ui not included here