ui.R 2.63 KiB
library(shinydashboard)
library(shinymeta)
library(shinycustomloader)
source("panels/Summary-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/cluster-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"),
      downloadButton("downloadData", 
                   "Download data as RData", 
                   icon = icon("download"), 
                   style = "width: 80% ; color: black ; background-color: gray90"),
      actionButton("plotButton", 
                   "Download last plot", 
                   icon = icon("download"),
                   style = "width: 80% ; color: black ; background-color: gray90"),
    sidebarMenu(
      menuItem("Summary", tabName = "Summary", icon = icon("table")),
      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"), tabName = "richnessA", icon = icon("dashboard")),
      menuItem(HTML("β-diversity"), tabName = "richnessB", icon = icon("dashboard")),
      menuItem("MultiDimensional Scaling", tabName = "mds", icon = icon("dashboard")),
      menuItem("PCA", tabName = "pca", icon = icon("dashboard")),
      menuItem("Phylogenetic tree", tabName = "tree", icon = icon("dashboard")),
      menuItem("Clustering", tabName = "cluster", icon = icon("dashboard")),
      menuItem("Help", tabName = "Help", icon = icon("dashboard"))
  )),
  dashboardBody(
    tabItems(
      tabItem(tabName = "Summary", Summary),
      tabItem(tabName = "barplot", barplot),
      tabItem(tabName = "heatmap", heatmap),
      tabItem(tabName = "rarefactionCurve", rarefactionCurve),
      tabItem(tabName = "richnessA", richnessA),
      tabItem(tabName = "richnessB", richnessB),
      tabItem(tabName = "mds", mds),
      tabItem(tabName = "pca", pca),
      tabItem(tabName = "tree", tree),
      tabItem(tabName = "cluster", cluster),
      tabItem(tabName = "Help", Help)