Shiny模块含额外参数时能否用moduleServer替代callModule

完全可以实现callModule到moduleServer的平滑替换，无需修改第三方包的模块函数定义。

实现方法 #

通过匿名函数对原模块函数做一层封装，利用R的闭包特性传递额外参数，替换后的代码如下：

# 原callModule调用
# callModule(module = module_function, id = "ID", env = env, con = conn)

# 替换为moduleServer的写法
moduleServer(
  id = "ID",
  module = function(input, output, session) {
    module_function(
      input = input,
      output = output,
      session = session,
      env = env,
      con = conn
    )
  }
)

原理解释 #

• moduleServer要求传入的module参数仅接收input、output、session三个参数，没有预留...传递额外参数，因此我们通过自定义一层仅接受三个参数的匿名函数满足moduleServer的参数要求
• 匿名函数内部可以直接捕获当前环境中的env、conn变量，将其作为参数传入原始的第三方模块函数，调用逻辑和原callModule完全一致，不会有功能差异
  该方案不会修改原模块的任何逻辑，也不会引入额外副作用，是官方推荐的迁移兼容方案

内容的提问来源于stack exchange，提问作者Bear Bile Farming is Torture