library(shinydashboard)
header <- dashboardHeader()

sidebar <- dashboardSidebar(
  sidebarUserPanel("User Name",
    subtitle = a(href = "#", icon("circle", class = "text-success"), "Online"),
    # Image file should be in www/ subdir
    image = "userimage.png"
  ),
  sidebarSearchForm(label = "Enter a number", "searchText", "searchButton"),
  sidebarMenu(
    # Setting id makes input$tabs give the tabName of currently-selected tab
    id = "tabs",
    menuItem("1 Load data", tabName = "upload", icon = icon("dashboard")),
    menuItem("2 Linear regression", icon = icon("th"), tabName = "regression", badgeLabel = "new",badgeColor = "green"),
    menuItem("Charts", icon = icon("bar-chart-o"),
      menuSubItem("Sub-item 1", tabName = "subitem1"),
      menuSubItem("Sub-item 2", tabName = "subitem2")
    )
  )

)

body <- dashboardBody(
  tabItems(
    tabItem("upload",
            fileInput("inFile", "Select input data for linear regression",
                      multiple = FALSE,
                      accept = c("text/txt", "text/tab-separated-values", ".txt")),
            tableOutput(outputId="tablePreview")
    ),
    tabItem("regression",
            uiOutput("varSelection"),
            tableOutput(outputId="modelPreview")
            #checkboxGroupInput(inputId="varChoice", label="Select variable(s)", 
            #                   choices=c())

    ),
    tabItem("subitem1",
      "Sub-item 1 tab content"
    ),
    tabItem("subitem2",
      "Sub-item 2 tab content"
    )
  )
)


shinyUI (dashboardPage(skin="black",header, sidebar, body))