shinyUI(fluidPage(theme = shinythemes::shinytheme("lumen"),
fluidRow(
column(width = 8, includeMarkdown("intro_data.md")),
column(width = 4, includeHTML("intro_logo.html"))
),
sidebarLayout(
sidebarPanel(
radioButtons('indicator', ...)
sliderInput("year",....)
)
),
mainPanel(
tabsetPanel(
tabPanel( 'Data', DT::dataTableOutput('ex1') ),
tabPanel('Graphs', DT::dataTableOutput('ex2')))
)
))
))