在Shiny模块中添加bslib::nav_panel遇阻，求解决方案

原代码失效的核心原因：

• 模块直接操作主UI中的navset_tab，违反Shiny模块的封装逻辑；
• nav_insert默认使用模块的独立session上下文，无法定位到主session下的导航组件。

以下是两种可行解决方案：

方案1：直接指定主session调用nav_insert #

修改模块server函数，传入导航组件ID，并指定主session执行nav_insert：

library(shiny); library(bslib); library(shinyWidgets)

login_ui <- function(id) {
  ns <- NS(id)
  tagList(
    actionBttn(inputId = ns("add_tab"), label = "Add", style = "pill", color = "danger")
  )
}

login_server <- function(id, navset_id) {
  moduleServer(
    id,
    function(input, output, session) {
      observeEvent(input$add_tab, {
        # 获取主session上下文
        main_session <- shiny::getDefaultReactiveDomain()
        # 指定主session调用nav_insert
        nav_insert(id = navset_id, nav = nav_panel("This is a new tab"), session = main_session)
      })
    })
}

ui <- page_fluid(
  navset_tab(id = "nav_tab", nav_panel("Add a new tab", login_ui("add_test")))
)

server <- function(input, output) {
  # 传入主UI中导航组件的ID
  login_server("add_test", "nav_tab")
}

shinyApp(ui = ui, server = server)

方案2：模块发送触发信号，主server处理添加操作（推荐） #

遵循模块封装原则，模块仅对外暴露触发信号，由主server负责操作主UI组件：

library(shiny); library(bslib); library(shinyWidgets); library(later)

login_ui <- function(id) {
  ns <- NS(id)
  tagList(
    actionBttn(inputId = ns("add_tab"), label = "Add", style = "pill", color = "danger")
  )
}

login_server <- function(id) {
  moduleServer(
    id,
    function(input, output, session) {
      # 创建反应式触发器
      add_tab_trigger <- reactiveVal(FALSE)
      
      observeEvent(input$add_tab, {
        add_tab_trigger(TRUE)
        # 重置触发器，确保下次点击可触发
        later(function() add_tab_trigger(FALSE), 0.1)
      })
      
      # 返回触发器给主server
      return(add_tab_trigger)
    })
}

ui <- page_fluid(
  navset_tab(id = "nav_tab", nav_panel("Add a new tab", login_ui("add_test")))
)

server <- function(input, output) {
  # 获取模块返回的触发器
  add_trigger <- login_server("add_test")
  
  # 监听触发器，执行添加tab操作
  observeEvent(add_trigger(), {
    if (add_trigger()) {
      nav_insert(id = "nav_tab", nav = nav_panel("This is a new tab"))
    }
  })
}

shinyApp(ui = ui, server = server)

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