45 lines
2.0 KiB
Plaintext
45 lines
2.0 KiB
Plaintext
|
|
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(" ",9), collapse=""),
|
|
"Developer:", paste(rep(" ",9), collapse=""),
|
|
"Host on:", paste(rep(" ",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"
|
|
) |