Commit 30aa79da authored by Midoux Cedric's avatar Midoux Cedric

sidebarMenu + items

parent f41208ce
......@@ -15,31 +15,35 @@ source("panels/Help-ui.R", local = TRUE)
shinyUI(dashboardPage(
dashboardHeader(title = "Easy16S"),
dashboardSidebar(Sidebar),
dashboardSidebar(
sidebarMenu(
menuItem("Data", tabName = "Data", icon = icon("dashboard")),
menuItem("Summary", tabName = "Summary", icon = icon("dashboard")),
menuItem("Barplot", tabName = "barplot", icon = icon("dashboard")),
menuItem("Heatmap", tabName = "heatmap", icon = icon("dashboard")),
menuItem("Rarefaction curves", tabName = "rarefactionCurve", icon = icon("dashboard")),
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(
tabsetPanel(
tabPanel("Summary",
Summary),
tabPanel("Barplot",
barplot),
tabPanel("Heatmap",
heatmap),
tabPanel("Rarefaction curves",
rarefactionCurve),
tabPanel(HTML("α-diversity"),
richnessA),
tabPanel(HTML("β-diversity"),
richnessB),
tabPanel("MultiDimensional Scaling",
mds),
tabPanel("PCA",
pca),
tabPanel("Phylogenetic tree",
tree),
tabPanel("Clustering",
cluster),
tabPanel("Help",
Help)
tabItems(
tabItem(tabName = "Data", Sidebar),
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)
)
)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment