如何从一个Shiny模块更新另一个Shiny模块的输入控件？

你的问题核心是不同命名空间的模块无法直接互相访问控件：第一个模块的Server只能操作自身命名空间内的组件，直接调用updateTextInput(session = session,"second", value = "")找不到第二个模块的second输入框（它属于module_two命名空间）。

下面提供两种解决方法，优先推荐第一种符合模块化设计的方案：

方法一：通过主Server传递反应式信号（推荐） #

这种方式让模块保持低耦合，符合Shiny模块化设计的原则：

1. 第一个模块的Server返回一个反应式触发器，标记按钮点击事件
2. 主Server接收这个触发器，传递给第二个模块的Server
3. 第二个模块的Server监听触发器，更新自身的输入框

修正后的完整代码：

library(shiny)

firstUI <- function(id) {
  ns <- NS(id)
  tagList(
    actionButton(ns("update"), "Update 1st and 2nd module"),
    textInput(ns("first"), "Update me pls1", value = "Clear me!")
  )
}

firstServer <- function(id) {
  moduleServer(id, function(input, output, session) {
    # 创建反应式触发器，返回给主server
    update_trigger <- reactiveVal(FALSE)
    
    observeEvent(input$update, {
      # 更新自身模块的输入框
      updateTextInput(session = session, "first", value = "")
      # 触发信号
      update_trigger(TRUE)
    })
    
    # 返回触发器，供主server传递给其他模块
    return(update_trigger)
  })
}

secondUI <- function(id) {
  ns <- NS(id)
  tagList(
    textInput(ns("second"), "Update me pls", value = "Clear me!")
  )
}

secondServer <- function(id, update_signal) {
  moduleServer(id, function(input, output, session) {
    # 监听来自主server的信号
    observeEvent(update_signal(), {
      if(update_signal()){
        updateTextInput(session = session, "second", value = "")
        # 重置触发器，避免重复触发
        update_signal(FALSE)
      }
    })
  })
}

ui <- fluidPage(
  firstUI("module_one"),
  secondUI("module_two")
)

server <- function(input, output, session) {
  # 接收第一个模块的触发器
  trigger <- firstServer("module_one")
  # 将触发器传递给第二个模块
  secondServer("module_two", trigger)
}

shinyApp(ui, server)

方法二：直接使用全局Session指定命名空间ID（不推荐） #

这种方式直接绕过模块化的隔离机制，耦合性高，仅适合简单场景：
在第一个模块的observeEvent里，使用全局session（getDefaultReactiveDomain()），并指定第二个模块的完整命名空间ID（module_two-second）：

# 修改firstServer中的observeEvent部分
observeEvent(input$update, {
  updateTextInput(session = session, "first", value = "")
  # 使用全局session，指定第二个模块的完整ID
  updateTextInput(session = getDefaultReactiveDomain(), "module_two-second", value = "")
})

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