为何Shiny应用启动时R6对象的默认值未显示？

你的R6类初始化逻辑是正常的，hello_r6$name确实已经被初始化为'Eric'，但启动时没显示是因为模块2的输出仅在"change_name"事件触发时才会执行渲染。应用启动时你只完成了事件初始化（init("change_name")），并未触发该事件；同时模块1的输入框初始为空，也不会触发input$input_name的监听事件，导致output$output_name从未被赋值渲染。

具体解决办法 #

方法1：启动时主动触发事件 #

在server函数中创建R6实例后，主动调用一次trigger("change_name")，让模块2完成初始渲染：

server <- function(input, output, session) {
  
  hello_r6 <- ExampleR6$new()
  
  init("change_name")
  trigger("change_name") # 新增此行，触发初始渲染
  
  mod_1_Server(id = "mod_1", r6 = hello_r6)
  mod_2_Server(id = "mod_2", r6 = hello_r6)
}

方法2：让输出自动响应R6对象变化 #

无需依赖gargoyle事件，直接用reactive跟踪R6对象的属性变化，这样初始值和后续修改都会自动更新输出：

mod_2_Server <- function(id, r6) {
  moduleServer(
    id,
    function(input, output, session) {
      # 用reactive自动跟踪r6$name的变化
      current_name <- reactive(r6$name)
      
      output$output_name <- renderText(current_name())
    }
  )
}

额外优化：给输入框设置初始值 #

如果希望模块1的输入框也显示初始的'Eric'，可以在模块1的server逻辑中添加输入框初始化代码：

mod_1_Server <- function(id, r6) {
  moduleServer(
    id,
    function(input, output, session) {
      # 初始化输入框显示初始值
      updateTextInput(session, "input_name", value = r6$name)
      
      observeEvent(input$input_name, {
        r6$name <- input$input_name
        trigger("change_name")
      })
    }
  )
}

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