Here is a simple example of nested tabsetPanels that works for me.
library(shiny)
ui <- fluidPage(
titlePanel("Mock App"),
tabsetPanel(
tabPanel("Chemistry",
tabsetPanel(
tabPanel("First",
fluidRow(
column(width = 6,
plotOutput("Plot1", height = "350px")
)
)
),
tabPanel("Second",
fluidRow(
column(width = 6,
plotOutput("Plot2", height = "350px")
)
)
)
) #Close inner tabsetPanel
),
tabPanel("Plasma",
fluidRow(
column(width = 12,
h1("HI!")
)
)
)
) #Close outer tabsetPanel
) #Close FluidPage
server <- function(input, output) {
output$Plot1 <- renderPlot({
plot(seq(0,10), seq(100, 110), col = "red")
})
output$Plot2 <- renderPlot({
plot(seq(0,10), seq(0, 10)^2, type = "b")
})
}
# Run the application
shinyApp(ui = ui, server = server)