## app.R ##
    library(shiny)
    library(shinydashboard)

    ui <- dashboardPage(
      dashboardHeader(),
      dashboardSidebar(
sidebarMenu()
),
      dashboardBody()
    )

    server <- function(input, output) { }

    shinyApp(ui, server)