##Dashboard Header-------------
    header <- dashboardHeader(
      title = "My Dashboard")

    ##Dashboard Sidebar----------------
    sidebar <- dashboardSidebar(
      sidebarMenu(
        menuItem("Dashboard",tabName = "dashboard",
                 menuSubItem('Applicants',
                             tabName = 'applicants',
                             icon = icon("user", lib = "glyphicon")),
                 menuSubItem('Demographics',
                             tabName = 'demographics',
                             icon = icon("globe"))
                 ),
        menuItem("Job Positions", tabName = "jobposition",
                 menuSubItem('Associate',
                             tabName = 'associate',
                             icon = icon('address-card'))
        )
      )
    )

##Dashboard Sidebar----------------
sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Dashboard",tabName = "dashboard",
             menuSubItem('Applicants',
                         tabName = 'applicants',
                         icon = icon("user", lib = "glyphicon")),
             menuSubItem('Demographics',
                         tabName = 'demographics',
                         icon = icon("globe"))
             ),
    menuItem("Job Positions", tabName = "jobposition",
             menuSubItem('Associate',
                         tabName = 'associate',
                         icon = icon('address-card'))
    )
  )
)

##Dashboard Body-------------------
body <- dashboardBody(
  tabItems(
    # Dashboard Tab Content
    tabItem(tabName = "applicants",
            fluidRow(
              #Requires Attention Value Box
              valueBoxOutput("attentionbox"),
              #Applicant to Hire Avg TIme
              valueBoxOutput("hireAvgTime"),
              #Proportion of Women
              valueBoxOutput("WomenPercent"))
            ,
              fluidRow(
                column(width = 12,
              #Applicant Stage Plot
              box(
                title = ("Applicant Stages"),
                status = "warning",
                plotlyOutput("stageplot")
              ),
              #Avg Skill Score Plot
              box(
                title = ("Average Skill Score"),
                status = "warning",
                plotlyOutput("AvgSkillScore")
              ))
            )
    ),
    tabItem(tabname = 'demographics',
            fluidRow(
              tabBox(
                title = "",
                id = "tabset1", height = "250px",
                tabPanel("Gender", plot_ly(masterFemale, x = ~Stage, y = ~Female, type = 'bar', name = 'Female', hoverinfo = 'y') %>%
                           add_trace(y = masterFemale$Male,
                                     name = 'Male',
                                     hoverinfo = 'y') %>%
                           layout(
                             yaxis = list(title = 'Number of Applicants'),
                             barmode = 'group',
                             margin = list(b = 170)) %>%
                           config(displayModeBar = F)),
                tabPanel("Country", plot_ly(masterCan, x = ~Stage, y = ~CAN, type = 'bar', name = 'CAN', hoverinfo = 'y') %>%
                           add_trace(y = ~US, name = 'US', hoverinfo = 'y') %>%
                           layout(
                             yaxis = list(title = 'Number of Applicants'),
                             barmode = 'group',
                             margin = list(b = 170)) %>%
                           config(displayModeBar = F)) #,
                #tabPanel("Education")
              ))

    ),

    # Associate Tab Content
    tabItem(tabName = "associate",
            fluidPage(
              box(title = "Card Information", height = 300, "Text"),

              #Main Box for Candidate
              uiOutput("candidates")
            )
    )
  )
)

ui <- dashboardPage(
  skin = "yellow",
  header,
  sidebar,
  body
)
shinyApp(ui, server)