R Shiny - 將 selectizeInput 作為參數傳遞給 ShinyModule

Question

這是我的服務器代碼 function：

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 中的值傳遞給 function。

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()