使用renderUI在R Shiny中插入额外的tabPanel

Question

我正在尝试将 append 由 renderUI 创建的选项卡添加到现有选项卡集。 最小的例子：

ui <- fluidPage(sidebarLayout(sidebarPanel(),
                              mainPanel(tabsetPanel(
                                tabPanel("static_tab"),
                                uiOutput('ui_tab')
                              ))))
server <- function(input, output) {
  output$ui_tab <- renderUI({
    tabPanel("render_tab", p('it worked'))
  })
}
shinyApp(ui = ui, server = server)

我可以获得整个 tabsetPanel 来呈现，但不能呈现现有 tabsetPanel 中的单个选项卡。

Answer 1

您可以使用insertTab或appendTab ：

ui <- fluidPage(sidebarLayout(sidebarPanel(),
                              mainPanel(
                                tabsetPanel(id = "myTabsetPanel",
                                            tabPanel("static_tab", tabName = "static_tab"))
                              )))
server <- function(input, output) {
  appendTab(inputId = "myTabsetPanel",
            tabPanel("render_tab", p('it worked')))
}
shinyApp(ui = ui, server = server)

renderUI不会工作，因为它会创建一个div标签 - 但是，您需要创建一个li标签。