r - R Shiny - 将 selectizeInput 作为参数传递给 ShinyModule

Question

这是我的服务器功能代码：

dragularServer <- function(id, input_col) {​​​​​
  moduleServer(
    id,
    function(input, output, session = getDefaultReactiveDomain()) {​​​​​
   
      output$elementsInput <- renderUI({​​​​​
        lapply(input_col, function(x) tags$div(class="inlinedisplay", drag = x, x))
      }​​​​​)
   
    }​​​​​
  )
}​​​​​

我想将 selectizeinput 中的值传递给函数。

selectizeInput("columns_1", "Relevant vars", choices = unique(data$var), selected = c("Tradition"), multiple = T)

## Übergabe
dragularServer("id_1", input_col = input$columns_1)

数据正确传递一次（加载时），但不对任何更改做出反应。谁能解释这种行为？它与命名空间有关吗？

Answer 1

您的输入dragularServer只是一个值而不是反应式，因此它仅在启动时传递一次。要使其具有反应性，reactive({input$columns_1})请在服务器中使用和调整您的代码以处理反应性值，即input_col()