我想在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)