DataTool/app.R at main · ScienceParkStudyGroup/DataTool · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
library(shiny)
library(shinydashboard)
library(tidyverse)
library(plyr)
library(ggrepel)


source("DataInput.R")
source("Preprocess.R")
source("ASCA_module.R")
source("UniVariate.R")

ui <- dashboardPage(
  dashboardHeader(title = "Data analysis tool",
    dropdownMenu(type = "notifications",
      notificationItem(text = "Warning",
                       icon = icon("exclamation-triangle"),
                       status = "warning")
                )
  ),
  dashboardSidebar(
    sidebarMenu(id = "tabs",
      menuItem("Data input", tabName = "datainput", icon = icon("file")),
      menuItem("Preprocess", tabName = "preprocess", icon = icon("steam-square")),
      menuItem("Univariate", tabName = "univariate", icon = icon("steam-square")),
      menuItem("ASCA", tabName = "asca", icon = icon("steam-square"),
        menuSubItem("Build Model", tabName = "buildmodel", icon = icon("steam-square")),

        menuItem("Plots", tabName = "plots", icon = icon("image"),
          menuSubItem("Factors", tabName = "factors", icon = icon("image")),
          menuSubItem("Interactions", tabName = "interactions", icon = icon("image")),
          menuSubItem("Combination", tabName = "combinations", icon = icon("image")),
          menuSubItem("Residuals", tabName = "residuals", icon = icon("image"))
        )
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem("datainput", readFilesUI(id = "File")
      ),
      tabItem("preprocess", preProcessUI(id = "Preprocess")
      ),
      tabItem("univariate", uniVariateUI(id = "Univariate")
      ),
      tabItem("buildmodel", buildModelUI(id = "ASCA")
      ),
      tabItem("factors", makeFactorsUI(id = "ASCA")
      ),
      tabItem("interactions", makeInteractionsUI(id = "ASCA")
      ),
      tabItem("combinations", makeCombinationsUI(id = "ASCA")
      ),
      tabItem("residuals", makeResidualsUI(id = "ASCA")
      )
    )
  )
)

server <- function(input, output, session) {
  # DAT.session is used for variables needed by other modules
  DAT.session <- reactiveValues()

  # the variable data is used for some variables instead of DAT.session because
  # they are only used in preProcess.
  data <- callModule(readFiles, id = "File", DAT.session)
  callModule(preProcess, id = "Preprocess", data, DAT.session)
  callModule(uniVariate, id = "Univariate", DAT.session)
  callModule(ASCAmodel, id = "ASCA", DAT.session)
}

shinyApp(ui, server)