R Shiny模块中selectizeInput选项无法响应新上传数据问题

将Shiny应用模块化改造后，上传新文件时，模块内的selectizeInput选项未随数据更新，仍保留旧文件的列名，选中值也未同步变更。

核心问题是模块调用时传递的是响应式对象的单次求值结果，而非响应式对象本身，导致模块无法感知数据变化。只需两处修改：

1. 模块Server函数：将data参数视为响应式对象，内部调用时添加()
2. 模块调用处：传递响应式对象本身（getData，不带括号），而非其求值结果（getData()）

可选优化：上传新文件后自动清空选中值，避免残留无效选项。

获取数值型列的函数 #

# 筛选数据框的数值型列
getNumCols = function(df){
  numCols = unlist(lapply(df, is.numeric))
  colnames(df)[numCols]
}

输入模块UI函数 #

# 输入模块UI函数
inputsUI <- function(id){
  ns <- NS(id)
  
  tagList(
    uiOutput(ns('y')),
    uiOutput(ns('x'))
  )
}

输入模块Server函数 #

# 输入模块Server函数
inputsServer <- function(id, data){ # data为响应式对象
  moduleServer(
    id,
    function(input, output, session){
      ns <- session$ns
      
      # 调用响应式对象需加()，感知数据变化
      numCols <- reactive({getNumCols(data())})
      cols <- reactive({colnames(data())})
      
      # 创建Y变量选择框，上传新数据时清空选中值
      output$y = renderUI({
        selectizeInput(
          ns('y'), "Y变量", choices = numCols(), multiple = FALSE,
          selected = NULL
        )
      })
      
      # 创建X变量选择框，上传新数据时清空选中值
      output$x = renderUI({
        selectizeInput(
          ns('x'), "X变量", choices = cols(), multiple = FALSE,
          selected = NULL
        )
      })
    }
  )
}

应用主代码 #

# 定义应用UI
ui <- fluidPage(
  titlePanel("标题"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "上传CSV文件", accept = ".csv") 
    ),
    mainPanel(
      inputsUI("inputs")
    )
  )
)

# 定义应用Server逻辑
server <- function(input, output) {
  userFile <- reactive({
    validate(need(input$file, message=FALSE))
    input$file
  })
  
  getData <- reactive({
    read.csv(userFile()$datapath)
  })
  
  # 传递响应式对象getData，而非getData()
  inputsServer("inputs", getData)
}

# 运行应用
shinyApp(ui = ui, server = server)

修改后，上传新文件时模块会感知data()的变化，自动重新计算列名并渲染selectizeInput，选项同步更新为新文件的列；selected = NULL确保每次上传新数据时清空旧选中值，避免无效选项残留。

内容的提问来源于stack exchange，提问作者CWill85