ui.R 4.17 KB
Newer Older
1
library(shinydashboard)
Midoux Cedric's avatar
Midoux Cedric committed
2
library(shinymeta)
3
library(shinycustomloader)
4
source("panels/Summary-ui.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
5
source("panels/table-ui.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
6
source("panels/barplot-ui.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
7
source("panels/heatmap-ui.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
8
source("panels/rarefactionCurve-ui.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
9
source("panels/richnessA-ui.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
10
source("panels/richnessB-ui.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
11
source("panels/mds-ui.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
12
source("panels/pca-ui.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
13
source("panels/tree-ui.R", local = TRUE)
14
source("panels/Help-ui.R", local = TRUE)
Midoux Cedric's avatar
PCA  
Midoux Cedric committed
15

16
shinyUI(dashboardPage(
Midoux Cedric's avatar
Midoux Cedric committed
17
dashboardHeader(title = "Easy16S"),
Midoux Cedric's avatar
Midoux Cedric committed
18
  dashboardSidebar(
Midoux Cedric's avatar
Midoux Cedric committed
19 20 21 22
      actionButton("dataButton", 
                   "Select your data", 
                   icon = icon("upload"),
                   style = "width: 80% ; color: black ; background-color: gray90"),
Midoux Cedric's avatar
Midoux Cedric committed
23 24 25 26
      actionButton("filterButton", 
                   "Select some samples", 
                   icon = icon("filter"),
                   style = "width: 80% ; color: black ; background-color: gray90"),
Midoux Cedric's avatar
Midoux Cedric committed
27 28 29 30
      actionButton("transformButton", 
                   "Transform abundance", 
                   icon = icon("square-root-alt"),
                   style = "width: 80% ; color: black ; background-color: gray90"),
Midoux Cedric's avatar
Midoux Cedric committed
31 32 33
      actionButton("downloadButton", 
                   "Download data", 
                   icon = icon("download"),
Midoux Cedric's avatar
Midoux Cedric committed
34
                   style = "width: 80% ; color: black ; background-color: gray90"),
Midoux Cedric's avatar
Midoux Cedric committed
35 36
      actionButton("plotButton", 
                   "Download last plot", 
Midoux Cedric's avatar
Midoux Cedric committed
37
                   icon = icon("file-image"),
Midoux Cedric's avatar
Midoux Cedric committed
38
                   style = "width: 80% ; color: black ; background-color: gray90"),
Midoux Cedric's avatar
Midoux Cedric committed
39
    sidebarMenu(
Midoux Cedric's avatar
Midoux Cedric committed
40 41 42 43 44 45 46
      menuItem("Summary", tabName = "Summary", icon = icon("dna")),
      menuItem("Tables", icon = icon("table"),
               menuSubItem("OTU table", tabName = "otuTable"),
               menuSubItem("Taxonomy table", tabName = "taxtable"),
               menuSubItem("Agglomerate OTU table", tabName = "glomTable"),
               menuSubItem("Sample data table", tabName = "sampleTable")
      ),
Midoux Cedric's avatar
Midoux Cedric committed
47
      menuItem("Barplot", tabName = "barplot", icon = icon("chart-bar")),
Midoux Cedric's avatar
Midoux Cedric committed
48 49
      menuItem("Heatmap", tabName = "heatmap", icon = icon("chess-board")),
      menuItem("Rarefaction curves", tabName = "rarefactionCurve", icon = icon("chart-line")),
Midoux Cedric's avatar
Midoux Cedric committed
50 51 52 53 54
      menuItem(HTML("α-diversity"), icon = icon("th"),
               menuSubItem("Plots", tabName = "alphaPlot"),
               menuSubItem("Table", tabName = "alphaTable")
      ),
      menuItem(HTML("β-diversity"), icon = icon("th"),
Midoux Cedric's avatar
Midoux Cedric committed
55 56 57
               selectInput("betaDistance",
                           label = "Distance : ",
                           choices = list("bray", "jaccard", "unifrac", "wunifrac", "dpcoa", "jsd", "euclidean")),
Midoux Cedric's avatar
Midoux Cedric committed
58 59
               menuSubItem("Samples clustering", tabName = "betaCluster"),
               menuSubItem("Samples heatmap", tabName = "betaHeatmap"),
Midoux Cedric's avatar
Midoux Cedric committed
60
               menuSubItem("Network", tabName = "betaNetwork"),
Midoux Cedric's avatar
Midoux Cedric committed
61 62
               menuSubItem("Table", tabName = "betaTable")
      ),
Midoux Cedric's avatar
Midoux Cedric committed
63 64
      menuItem("MultiDimensional Scaling", tabName = "mds", icon = icon("dot-circle")),
      menuItem("PCA", tabName = "pca", icon = icon("bullseye")),
Midoux Cedric's avatar
Midoux Cedric committed
65
      menuItem("Phylogenetic tree", tabName = "tree", icon = icon("tree")),
Midoux Cedric's avatar
Midoux Cedric committed
66
      menuItem("Help", tabName = "Help", icon = icon("info-circle"))
Midoux Cedric's avatar
Midoux Cedric committed
67
  )),
68
  dashboardBody(
Midoux Cedric's avatar
Midoux Cedric committed
69 70
    tabItems(
      tabItem(tabName = "Summary", Summary),
Midoux Cedric's avatar
Midoux Cedric committed
71 72 73 74
      tabItem(tabName = "otuTable", otuTable),
      tabItem(tabName = "taxtable", taxtable),
      tabItem(tabName = "glomTable", glomTable),
      tabItem(tabName = "sampleTable", sampleTable),
Midoux Cedric's avatar
Midoux Cedric committed
75 76 77
      tabItem(tabName = "barplot", barplot),
      tabItem(tabName = "heatmap", heatmap),
      tabItem(tabName = "rarefactionCurve", rarefactionCurve),
Midoux Cedric's avatar
Midoux Cedric committed
78 79 80 81
      tabItem(tabName = "alphaPlot", alphaPlot),
      tabItem(tabName = "alphaTable", alphaTable),
      tabItem(tabName = "betaCluster", betaCluster),
      tabItem(tabName = "betaHeatmap", betaHeatmap),
Midoux Cedric's avatar
Midoux Cedric committed
82
      tabItem(tabName = "betaNetwork", betaNetwork),
Midoux Cedric's avatar
Midoux Cedric committed
83
      tabItem(tabName = "betaTable", betaTable),
Midoux Cedric's avatar
Midoux Cedric committed
84 85 86 87
      tabItem(tabName = "mds", mds),
      tabItem(tabName = "pca", pca),
      tabItem(tabName = "tree", tree),
      tabItem(tabName = "Help", Help)
88 89 90 91
      )
    )
  )
)