Shiny开发：如何动态移除tabsetPanel所有nav_panel并获取面板名称？

要动态获取tabsetPanel内所有nav_panel的名称并批量移除，可通过JavaScript获取前端Tab标题再传递给R端的方式实现，无需提前知晓面板名称。以下是修改后的完整代码：

library(shiny)
library(bslib)
library(purrr)

ui <- fluidPage(
  # 自定义JS处理函数，用于获取Tab名称
  tags$script(HTML('
    Shiny.addCustomMessageHandler("getTabNames", function(message, callback) {
      // 根据tabset的ID找到容器
      const tabsetEl = document.getElementById(message.tabsetId);
      // 获取所有Tab标题元素
      const tabLinks = tabsetEl.querySelectorAll(".nav-link");
      // 提取每个Tab的文本内容并去空格
      const tabNames = Array.from(tabLinks).map(link => link.textContent.trim());
      // 将结果返回给R端
      callback({tabNames: tabNames});
    });
  ')),
  
  actionButton("remove", "Remove all nav panels"),
  tabsetPanel(
    id="panel_set",
    nav_panel("a", "frame a"),
    nav_panel("b", "frame b"),
    nav_panel("c", "frame c")
  )
)

server <- function(input, output, session) {
  observe({
    # 调用JS获取所有Tab名称
    panel_names <- session$sendCustomMessage(
      type = "getTabNames",
      message = list(tabsetId = "panel_set"),
      callback = function(msg) msg$tabNames
    )
    
    # 遍历移除每个面板
    walk(panel_names, \(pn) nav_remove("panel_set", target = pn))
  }) |> bindEvent(input$remove)
}

shinyApp(ui = ui, server = server)

核心逻辑说明： #

1. 前端JS部分：通过Shiny.addCustomMessageHandler注册一个名为getTabNames的消息处理器，根据传入的tabsetId找到对应的导航容器，提取所有.nav-link元素的文本内容（即面板名称），再通过callback返回给R端。
2. 后端R部分：点击移除按钮时，调用session$sendCustomMessage触发前端JS逻辑，获取到所有面板名称后，用purrr::walk遍历调用nav_remove完成批量移除。

这种方式完全适配动态生成面板的场景，无论面板是静态定义还是后续通过nav_insert等方法动态添加，都能准确获取当前所有面板的名称。

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