R Shiny - 动态添加 tabPanel 到 tabsetPanel (使用 renderUI)

标签 r tabpanel shiny

我正在开发一个 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/

相关文章:

javascript - Shiny 的 active 颜色

r - R 中类似 Python 的数值解包

r - 如何获取R中的变量名称(替代)?

r - 我们如何获得R中的商品价格?

extjs - 使用 Ext JS 为选项卡添加书签?

r - 如何禁用shinydashboard中的tabPanel?

r - 发现没有调用 : 'R_registerRoutines' , 'R_useDynamicSymbols' 未解决

css - 不显示 float TabPane 的样式

r - 可以结合 DT、可格式化和 Shiny 吗?

r - 带工具提示的响应式(Reactive)单选按钮BS,闪闪发亮