如何通过R Shiny、Plotly与JS移除指定前缀的重复标签页

在Shiny应用中，集成了JavaScript代码的Plotly柱状图通过点击事件调用Shiny.setInputValue传递参数，触发新增标签页的逻辑。需求是每次打开新标签页前，先移除所有同类型（标题以Month开头）的旧标签页，但当前实现无法移除旧标签，只会不断新增。

1. 初始代码中input[[tabset_id]]仅返回当前选中的标签ID，不是所有已存在的标签列表，无法批量移除同类型标签。
2. 尝试的grep("^Month", existing_tabs)返回的是标签的位置索引，而removeTab需要的是标签的value（唯一ID），直接传入索引无效。
3. 未给tabPanel指定唯一value，Shiny自动生成的ID可能重复，进一步导致标签识别混乱。

修改observeEvent中的标签移除与新增逻辑，正确获取所有标签信息并筛选目标标签，同时给新标签指定唯一ID：

observeEvent(input$MPA, {
    tabset_id <- "tabset"
    
    # 获取当前标签集的所有标签信息（需确保server函数传入session参数）
    existing_tabs <- session$getTabsetPanel(tabset_id)
    
    # 筛选出标题以"Month"开头的标签ID
    tabs_to_remove <- sapply(existing_tabs, function(tab) {
      if (grepl("^Month", tab$title)) tab$value else NULL
    })
    
    # 批量移除符合条件的旧标签
    for (tab_id in tabs_to_remove) {
      removeTab(inputId = tabset_id, target = tab_id)
    }
    
    # 为新标签生成唯一ID（避免重复）
    new_tab_value <- paste0("tab_", gsub("[^a-zA-Z0-9]", "_", input[["MPA"]]))
    
    # 创建新标签（使用Shiny UI元素而非print输出）
    new_tab <- tabPanel(
      title = input[["MPA"]],
      value = new_tab_value,
      p("hello")
    )
    
    # 添加并选中新标签
    appendTab(
      inputId = tabset_id,
      new_tab,
      select = TRUE
    )
  })

• 确保Shiny的server函数包含session参数：server <- function(input, output, session) { ... }，否则无法调用session$getTabsetPanel。
• 必须给tabPanel指定value参数，避免Shiny自动生成重复ID，保证标签能被准确识别和移除。
• 替换print("hello")为Shiny UI元素（如p()、h3()等），print仅输出到R控制台，不会显示在网页界面中。

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