У меня проблемы с использованием 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