删除闪亮的具有相同标题的选项卡面板

Question

在这个的基础上，我想要的是

1. 允许多个选项卡具有相同标题
2. 按钮

   remove

   用于删除当前选定的选项卡

我尝试了以下方法：

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      actionButton("add", "Add Other tab"),
      actionButton("remove", "Remove Current tab")
    ),
    mainPanel(
      tabsetPanel(id = "tabs"
                  ,tabPanel("Java", "tab for Java")
                  ,tabPanel("C++", "tab for C++")
                  ,tabPanel("Python", "tab for Python")
                  ,tabPanel("Python", "tab for Python")
                  
      )
    )
  )
)
server <- function(input, output, session) {
  observeEvent(input$add, {
    insertTab(inputId = "tabs",
              tabPanel("Other language", "tab for other language"),
              select=TRUE
    )
  })
  observeEvent(input$remove, {
    removeTab(inputId = "tabs", target = input$tabs)
  })
}

shinyApp(ui, server)

但是，当我选择最后一个“Python”选项卡然后单击按钮

remove

时，所有带有“Python”标题的选项卡都被删除。我只想删除选定的选项卡。

有什么办法可以实现这个目标吗？

Answer 1

您必须为这些选项卡提供不同的

value

：

                  ,tabPanel("Python", "tab for Python", value = "python1")
                  ,tabPanel("Python", "tab for Python", value = "python2")