R Shiny Golem中updateTabItems切换TabItem失效问题求助

问题场景 #

使用R的Golem框架开发Shiny应用，点击Accueil模块内的按钮尝试从"Accueil"标签页切换至"Rating"标签页，但点击后页面无任何变化。

原代码 #

Accueil模块代码

mod_Accueil_ui <- function(id){
  ns <- NS(id)
  tagList(
    actionButton(ns("do"), "Click Me")
 
  )
}
    
#' Accueil Server Functions
#'
#' @noRd 
mod_Accueil_server <- function(id){
mod_Accueil_server <- function(id){
  moduleServer( id, function(input,output,session){
   
     ns <- session$ns
    
     observeEvent(input$do, {
      updateTabItems(session = session,inputId = "menu",selected = "Rating")
      
    })
   
  })
}

app_ui部分代码

sidebarMenu(id="menu", 
                tags$head(                
                menuItem("Rating", tabName = "Rating"),
                menuItem("Accueil", tabName = "Accueil")

))
tabItems(
    tabItem("Rating",mod_calcul_ui("calcul_ui_1") ),
    tabItem("Accueil",mod_Accueil_ui("Accueil_1") )
    )

问题原因 #

1. 命名空间隔离：模块内部的session只能访问模块自身的元素，而sidebarMenu的id="menu"属于主UI的命名空间，模块无法直接操作。
2. 冗余代码：Accueil模块的server函数被重复定义了两次，属于无效冗余。
3. UI结构错误：sidebarMenu内部嵌套了tags$head，会导致菜单渲染异常，影响标签页切换逻辑。

修复方案 #

1. 修正Accueil模块代码 #

移除重复的server函数定义，并添加参数接收主session：

mod_Accueil_ui <- function(id){
  ns <- NS(id)
  tagList(
    actionButton(ns("do"), "Click Me")
  )
}

#' Accueil Server Functions
#'
#' @noRd 
mod_Accueil_server <- function(id, main_session){
  moduleServer(id, function(input, output, session){
    observeEvent(input$do, {
      # 使用传递进来的主session操作主UI的sidebarMenu
      updateTabItems(session = main_session, inputId = "menu", selected = "Rating")
    })
  })
}

2. 修正app_ui结构 #

移除sidebarMenu内错误的tags$head，确保菜单结构正确：

sidebarMenu(
  id = "menu",
  menuItem("Rating", tabName = "Rating"),
  menuItem("Accueil", tabName = "Accueil")
)

tabItems(
  tabItem("Rating", mod_calcul_ui("calcul_ui_1")),
  tabItem("Accueil", mod_Accueil_ui("Accueil_1"))
)

3. 在主Server中传递主session到模块 #

在app_server.R中调用模块时，将主session作为参数传入：

app_server <- function(input, output, session) {
  # 传递主session给Accueil模块
  mod_Accueil_server("Accueil_1", main_session = session)
}

说明 #

• 通过传递主session，模块可以突破自身命名空间限制，操作主UI中的sidebarMenu元素。
• 修复UI结构错误后，菜单的标签页映射关系才能正常生效。

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