在Shiny R中的tabPanel下渲染tabsetPanel

时间:2014-02-11 13:36:51

标签: r shiny tabpanel

我想在tabPanel-3下有多个标签。我尝试在tabPanel下插入另一个tabsetPanel,但它不起作用。

  output$mytabs = renderUI({

  tabs = 
         tabsetPanel(
 tabPanel('Tab1', wellPanel(checkboxInput('All','Check  All/Uncheck All',T),uiOutput('tab1'))),

 tabPanel('Tab2', gridster(tile.width = 100, tile.height = 100,
 gridsterItem(row = 1, col = 1, size.x = 1, size.y = 1,style='background-color:#FFFFFF',
              tags$div(class = 'grid_title', 'Tab2 - Title'), htmlOutput("tab2")))),


  tabPanel('Tab3',
  gridster(tile.width = 250, tile.height = 1000,
  gridsterItem(row = 1, col = 1, size.x = 1, size.y = 1,style='background-color:#FFFFFF',
            tags$div(class = 'grid_title', 'Tab 3- Plot 1'), showOutput("Chart1","nvd3")),

  gridsterItem(row = 2, col = 1, size.x = 1, size.y = 1,style='background-color:#FFFFFF',
            tags$div(class = 'grid_title', 'Tab 3 - Plot 2'), chartOutput("Chart2"))

         ))

   )


   mainPanel(tabs)

  })

  outputOptions(output, "mytabs", suspendWhenHidden = T)

0 个答案:

没有答案