嵌套模块内ObserveEvent无法识别输入变更的Shiny问题求助

我有一个大型向导应用，希望将每个隐藏标签页拆分为独立模块。以下示例基于Hadley的向导示例构建，布局如下：

ui
└─ outer_ui
   └─ inner_ui
server
└─ outer_server
   └─ inner_server

正常工作的功能 #

• inner_server与outer_server通信：inner_server可在加载时触发页面切换
• tabsetPanel能识别inner_ui中的标签页：page_21按钮可成功切换至page_1

异常功能 #

• inner_server与inner_ui通信：点击page_12按钮时，页面无切换响应（实际事件已触发，但页面更新逻辑未生效）

代码示例 #

library(shiny)

inner_ui <- function(id) {
  ns <- NS(id)
  tabPanel(title = "page_1",
           actionButton(
             inputId = ns("page_12"),
             label = "next")
  )
}

inner_server <- function(id, r) {
  moduleServer(id, function(input, output, session) {
    # 初始化跳转至page_2，若希望初始显示page_1可注释此行
    r$page <- 2
    observeEvent(input$page_12, {
      r$page <- 2
    })
  })
}

outer_ui <- function(id) {
  ns <- NS(id)
  fluidPage(
    tabsetPanel(
      # 命名标签组以便后续调用
      id = ns("wizard"),
      # 仅显示选中标签，其余隐藏
      type = "hidden",
      
      # 模块化第一页标签
      inner_ui("first_page"),
      
      # 另外两页与Hadley示例一致
      tabPanel(title = "page_2",
               h4("Only one page to go"),
               actionButton(inputId = ns("page_21"), label = "prev"),
               actionButton(inputId = ns("page_23"), label = "next")
      ),
      tabPanel(title = "page_3",
               h4("You're done!"),
               actionButton(inputId = ns("page_32"), label = "prev")
      )
    )
  )
}


outer_server <- function(id, r) {
  moduleServer(id, function(input, output, session) {
    observeEvent(r$page, {
      # 关键修复：指定session参数，确保正确定位带命名空间的tabsetPanel
      updateTabsetPanel(
        session = session,
        inputId = "wizard",
        selected = paste0("page_", r$page)
      )
    })
    inner_server("first_page", r = r)
    observeEvent(input$page_21, r$page <- 1)
    observeEvent(input$page_23, r$page <- 3)
    observeEvent(input$page_32, r$page <- 2)
  })
}

# 定义tabsetPanel模块
ui <- navbarPage(
  title = NULL,
  tabPanel(title = "test Wizard",
           outer_ui("test_outer"))
)

server <- function(input, output, session) {
  r <- reactiveValues()
  # 若希望初始显示page_1，可添加此行
  # r$page <- 1
  outer_server("test_outer", r = r)
}

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

问题原因与修复方案 #

核心问题 #

在模块内调用updateTabsetPanel时未指定session = session参数，导致Shiny无法正确定位到带父模块命名空间的tabsetPanel元素。初始化时的页面跳转看似生效，实际是全局会话的偶然匹配，后续按钮触发的页面切换因命名空间不匹配而失效。

修复步骤 #

1. 在outer_server的updateTabsetPanel调用中添加session = session参数，确保使用模块的命名空间会话定位元素。
2. 移除inner_server中未使用的parent参数，简化模块定义。
3. 若希望应用初始显示page_1，可注释inner_server中的r$page <- 2，并在主server中添加r$page <- 1。

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