An error occurred while loading the file. Please try again.
-
Gaetano Raffaele authored07554cbf
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)
)
)
)
)