Eu gostaria de exibir entradas diferentes para guias diferentes. Então eu tentei construir uma página com vários tabPanels. No entanto, eu não posso ter como abaixo:

library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Header"),

  tabsetPanel(
    tabPanel(
      headerPanel("Tab 1"),
      sidebarPanel(
        selectInput("var", "Parametre", choices = c("1", "2", "3"))
        ),
      mainPanel(
        textOutput("text1")
        )
      ),
    tabPanel(
      headerPanel("Tab 2"),
      sidebarPanel(
        selectInput("var", "Parametre", choices = c("21", "22", "23"))
      ),
      mainPanel(
        textOutput("text2")
      )
    )
    )
  ))

Eu suspeito que opageWithSidebar está causando o problema, mas não consegui encontrar uma alternativa no google groups. Existe uma maneira de exibir várias guias com suas próprias barras laterais e mainPanels, ou devo criar aplicativos diferentes para essa finalidade?