блестящий модуль selectInput не реагирует

Question

По какой-то причине использование selectInput в модуле не реагирует на изменения входного значения. Я добавил минимальный пример, чтобы продемонстрировать мою проблему. Если я пишу один и тот же код без модуля, то есть вставка кода интерфейса пользователя и сервера модуля на основной сервер и функции интерфейса без функции пространства имен работают. Я не вижу проблемы с моим кодом.

require(shiny)

ui <- function(){
    dummyUI("test")
}

server <- function(input, output, session) {

    callModule(dummy, "test")
}

dummyUI <- function(id) {
    ns <-NS(id)
    uiOutput(width = 6, ns("selectMaterial"))
}

dummy <- function(input, output, session) {
    # render UI for the filters
    output$selectMaterial <- renderUI({
        selectInput(
            inputId = "selectMaterial",
            label = "Choose Materials" ,
            choices = c("a","b"),
            multiple = TRUE)
    })

    observeEvent(input$selectMaterial ,{print("hi")})
}

shinyApp(ui(), server)

Answer 1

Как уже упоминалось в этой статье (раздел «Использование renderUI в модулях») "), вам нужно использовать функцию пространства имен в renderUI.

require(shiny)

ui <- function(){
  dummyUI("test")
}

server <- function(input, output, session) {

  callModule(dummy, "test")
}

dummyUI <- function(id) {
  ns <-NS(id)
  uiOutput(width = 6, ns("selectMaterial"))
}

dummy <- function(input, output, session) {
  # render UI for the filters
  output$selectMaterial <- renderUI({
    selectInput(
      inputId = session$ns("selectMaterial"),       ## <= namespace here
      label = "Choose Materials" ,
      choices = c("a","b"),
      multiple = TRUE)
  })

  observeEvent(input$selectMaterial ,{print("hi")})
}

shinyApp(ui(), server)