
library(shiny)
library(shinydashboard)
library(fontawesome)

ui <- dashboardPage(
  dashboardHeader("wizard"),
    dashboardSidebar(
      sidebarMenu(
      img(src="logo.png", width=230),
        menuItem("Home", tabName="home", icon=icon("home")),
        menuItem("Data template", tabName = "template", icon=icon("table"),
                 menuSubItem( tags$li(a("EXCEL File",  target="self",href="TestFIle.xlsx")))
                 ),
        menuItem("User Manual /Validation", tabName = "manual", icon=icon("book"),
                 menuSubItem(icon = NULL, tags$li(a("Document",  target="self",href="UserManual.pdf")))
        ),
        menuItem("EXCEL upload", tabName="Dataupload", icon=icon("magnet", lib="glyphicon")),
        menuItem("4PL + report", tabName="4PL", icon=icon("chart-line", lib="font-awesome")),
        menuItem("Linear regression + report", tabName="pla", icon=icon("pencil", lib="glyphicon")),
        menuItem("Wizard", tabName="wizard", icon=icon("chart-column", lib="font-awesome")),
        menuItem("Documentation", tabName="documentation", icon=icon("chart-area", lib="font-awesome"))
      ),
      tags$footer(HTML(paste("Owned by",tags$strong(tags$u("InnerAnalytics")), paste(rep("&nbsp",9), collapse=""),
                             "Developer:", paste(rep("&nbsp",9), collapse=""),
                              "Host on:", paste(rep("&nbsp",9), collapse=""),
                             "Version:")),
                  align="left", style=
                    "position:fixed; bottom_=;;width=100%; background: #7FAEFF; font-family: Times New Roman; font-size:100%;
                  padding: 5px; color:#990000; box-sizing: border-box; z-index: 1000;")
    ),
    dashboardBody(
      fluidPage(
        tabItems(
          tabItem(tabName = "home", htmlOutput("homePage")),
          tabItem(tabName = "Datapload", uiOutput("Dataupload")),
          tabItem(tabName = "fourPL", uiOutput("fourPL")),
          tabItem(tabName = "pla", uiOutput("pla")),
          tabItem(tabName = "wizard", uiOutput("wizard"))

        )

    )
  ) , skin="blue"
)