Global.R into dev

2026-05-18 17:40:35 +02:00
parent b38e60e1a3
commit b0cf97a5ee
68 changed files with 7165 additions and 0 deletions
@@ -0,0 +1,45 @@
+
+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"
+)