library(shinythemes) library(DT) seite1 <- tabPanel("Seite 1", sidebarLayout( sidebarPanel( uiOutput("ui_datumswahl"), uiOutput("ui_aktienwahl"), ), mainPanel( tabsetPanel(type = "tabs", tabPanel("Chart", plotOutput("chart")), tabPanel("Tabelle", DTOutput("table"))) ) )) seite2 <- tabPanel("Seite 2", h1("TODO")) ui <- navbarPage("Mein Dashboard", theme = shinytheme("darkly"), seite1, seite2 )