我正在开发一个 Shiny 的应用程序,其中使用tabsetPanel
,它是在用户输入某些特定输入时生成的。因此,我想使用 renderUI 函数来使 tabsetPanel 出现/消失。
我现在的困难是数量 tabPanel
元素(tabsetPanel
的参数)也取决于用户输入顺便说一句:有时我需要 1 个,有时我需要更多 tabPanel
。
如何制作呢?我尝试在 tabsetPanel
参数中包含 conditionPanel
或包含简单的 if()...
条件,但它(毫不奇怪......)没有工作。
最佳答案
给你。该代码是相当不言自明的。
library(shiny)
runApp(list(
ui = pageWithSidebar(
headerPanel('Dynamic Tabs'),
sidebarPanel(
numericInput("nTabs", 'No. of Tabs', 5)
),
mainPanel(
uiOutput('mytabs')
)
),
server = function(input, output, session){
output$mytabs = renderUI({
nTabs = input$nTabs
myTabs = lapply(paste('Tab', 1: nTabs), tabPanel)
do.call(tabsetPanel, myTabs)
})
}
))
关于R Shiny - 动态添加 tabPanel 到 tabsetPanel (使用 renderUI),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19470426/