ui.R

library(shinydashboard)
library(shinymeta)
library(shinycustomloader)
source("panels/Summary-ui.R", local = TRUE)
source("panels/table-ui.R", local = TRUE)
source("panels/barplot-ui.R", local = TRUE)
source("panels/heatmap-ui.R", local = TRUE)
source("panels/rarefactionCurve-ui.R", local = TRUE)
source("panels/richnessA-ui.R", local = TRUE)
source("panels/richnessB-ui.R", local = TRUE)
source("panels/mds-ui.R", local = TRUE)
source("panels/pca-ui.R", local = TRUE)
source("panels/tree-ui.R", local = TRUE)
source("panels/Help-ui.R", local = TRUE)

shinyUI(dashboardPage(
dashboardHeader(title = "Easy16S"),
  dashboardSidebar(
      actionButton("dataButton", 
                   "Select your data", 
                   icon = icon("upload"),
                   style = "width: 80% ; color: black ; background-color: gray90"),
      actionButton("filterButton", 
                   "Select some samples", 
                   icon = icon("filter"),
                   style = "width: 80% ; color: black ; background-color: gray90"),
      actionButton("transformButton", 
                   "Transform abundance", 
                   icon = icon("square-root-alt"),
                   style = "width: 80% ; color: black ; background-color: gray90"),
      actionButton("downloadButton", 
                   "Download data", 
                   icon = icon("download"),
                   style = "width: 80% ; color: black ; background-color: gray90"),
      actionButton("plotButton", 
                   "Download last plot", 
                   icon = icon("file-image"),
                   style = "width: 80% ; color: black ; background-color: gray90"),
    sidebarMenu(
      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")
      ),
      menuItem("Barplot", tabName = "barplot", icon = icon("chart-bar")),
      menuItem("Heatmap", tabName = "heatmap", icon = icon("chess-board")),
      menuItem("Rarefaction curves", tabName = "rarefactionCurve", icon = icon("chart-line")),
      menuItem(HTML("α-diversity"), icon = icon("th"),
               menuSubItem("Plots", tabName = "alphaPlot"),
               menuSubItem("Table", tabName = "alphaTable")
      ),
      menuItem(HTML("β-diversity"), icon = icon("th"),
               selectInput("betaDistance",
                           label = "Distance : ",
                           choices = list("bray", "jaccard", "unifrac", "wunifrac", "dpcoa", "jsd", "euclidean")),
               menuSubItem("Samples clustering", tabName = "betaCluster"),
               menuSubItem("Samples heatmap", tabName = "betaHeatmap"),
               menuSubItem("Network", tabName = "betaNetwork"),
               menuSubItem("Table", tabName = "betaTable")
      ),
      menuItem("MultiDimensional Scaling", tabName = "mds", icon = icon("dot-circle")),
      menuItem("PCA", tabName = "pca", icon = icon("bullseye")),
      menuItem("Phylogenetic tree", tabName = "tree", icon = icon("tree")),
      menuItem("Help", tabName = "Help", icon = icon("info-circle"))
  )),
  dashboardBody(
    tabItems(
      tabItem(tabName = "Summary", Summary),