如何制作带有自己内容的动态闪亮标签？

Question

因此，我查看了以下链接，这些链接在执行操作时创建动态选项卡，并使用其自己的侧边栏创建选项卡，但似乎无法将2和2放在一起。

R Shiny-将tabPanel动态添加到tabsetPanel（使用renderUI）

带有自己的侧边栏和mainPanel的选项卡是否有可能发亮？

在动态创建标签后，有人知道如何访问这些标签吗？另外，在这种情况下，renderUI示例是否不好，因为它会为每个动作创建一个新的标题列表？

Answer 1

我要感谢所有在 stackoverflow 上帮助我解决这个问题的好人；这是最支持编程初学者的网站。

用户界面：

library(shiny)
shinyUI(navbarPage("TiGr",

               tabPanel("File Input Page",
                        fluidPage("Input")),

               tabPanel("Summary Statistics and Plots",
                        fluidPage("Statistics")),

               tabPanel("Time Clusters",
                        fluidPage("cluster"),
                        actionButton("subClust", label = "Create Subcluster"),
                        uiOutput("tabs"),
                        conditionalPanel(condition="input.level==1",
                                         helpText("test work plz")
                        ), 
                        conditionalPanel(condition="input.level==5",
                                         helpText("hohoho")
                        )
               )
))

服务器：

library(shiny)

shinyServer(function(input, output,session) {
  output$tabs=renderUI({

Tabs<-as.list(rep(0,input$subClust+1))
for (i in 0:length(Tabs)){
  Tabs[i]=lapply(paste("Layer",i,sep=" "),tabPanel,value=i)
}

#Tabs <- lapply(paste("Layer",0:input$subClust,sep=" "), tabPanel)
do.call(tabsetPanel,c(Tabs,id="level"))
})
}
)