R Shiny模块调用异常：使用callModule无法读取输入值

问题描述 #

在R Shiny项目中，通过callModule调用customers_server模块时，无法读取输入值（如print(input$date)输出NULL），但直接调用服务器函数功能正常。测试发现输入控件的命名空间为customers_ui-customers_ui-customer_stats-date，存在重复前缀。

原因分析 #

1. 双重命名空间嵌套：customers_server本身作为一个模块，主app中通过callModule(customers_server, "customers_ui")传入了idcustomers_ui，此时该模块的session$ns已自动添加customers_ui-前缀。但customers_server内部调用子模块customersStats时，又用ns("customer_stats")包裹id，导致命名空间被重复添加，最终生成带重复前缀的ID，服务器端无法匹配到正确输入。
2. 模块重复初始化：主app的observe函数每次切换到customers标签时都会调用callModule，导致模块被重复创建，加剧命名空间混乱。

解决方法 #

1. 修正子模块调用方式 #

修改projects/customers/server.R中调用子模块的代码，去掉ns()包裹子模块id：

# 原代码
customersStats(ns("customer_stats"))

# 修改后
customersStats("customer_stats")

原因：customers_server作为模块，内部的moduleServer会自动继承当前模块的命名空间，直接传入子模块id即可生成正确的嵌套命名空间（如customers_ui-customer_stats-date），无需手动添加前缀。

2. 避免模块重复初始化 #

修改主app的server函数，将callModule移到observe外部，确保模块只初始化一次：

server <- function(input, output, session) {
  # 仅初始化一次customers_server模块
  callModule(customers_server, "customers_ui")
  
  observe({
    req(input$sidebar)
    tab <- input$sidebar
    
    if (tab == "customers") {
      shinyjs::show("loading")
      shiny::removeModal()
      shinyjs::hide("loading")
    }
  })
}

原因：每次调用callModule都会创建新的模块实例，重复初始化会导致命名空间冲突和资源浪费，只初始化一次即可保证模块正常运行。

3. （可选）改用新版moduleServerAPI #

callModule是旧版API，推荐使用moduleServer重构模块定义，更符合现代Shiny开发规范：

• 修改customers_server的定义：

# projects/customers/server.R
customers_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    
    timer <- reactiveTimer(2000)
    
    observeEvent(input$tabs, {
      shinyjs::show("loading")
      timer()
    })
    
    customersStats("customer_stats")
    
    observeEvent(timer(), {
      shinyjs::hide("loading") 
    })
  })
}

• 主app中调用方式改为：

server <- function(input, output, session) {
  customers_server("customers_ui")
  
  observe({
    req(input$sidebar)
    tab <- input$sidebar
    
    if (tab == "customers") {
      shinyjs::show("loading")
      shiny::removeModal()
      shinyjs::hide("loading")
    }
  })
}

验证修改效果 #

修改完成后，输入控件的命名空间会变为customers_ui-customer_stats-date，服务器端可以正常读取input$date的值，print(input$date)会输出当前选择的日期，selectedDate文本输出也能正常工作。

内容的提问来源于stack exchange，提问作者secret.shadow