以this为基数,我想要的是
- 允许使用相同标题的多个选项卡
- 用于移除当前 Select 的标签的按钮
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)
然而,当我 Select 最后一个"Python"标签,然后点击按钮remove
时,所有带有"Python"标题的标签都被删除了.我只想删除选定的选项卡.
有没有办法做到这一点?