sidebarMenu + items

30aa79da · Midoux Cedric · f41208ce · 30aa79da
Commit 30aa79da authored 5 years ago by Midoux Cedric
Hide whitespace changes
Inline Side-by-side

Showing

with 28 additions and 24 deletions
+28 -24
--- a/ui.R
+++ b/ui.R
@@ -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("&alpha;-diversity"), tabName = "richnessA", icon = icon("dashboard")),
+      menuItem(HTML("&beta;-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(
+    tabItems(
-      tabPanel("Summary",
+      tabItem(tabName = "Data", Sidebar),
-               Summary),
+      tabItem(tabName = "Summary", Summary),
-      tabPanel("Barplot",
+      tabItem(tabName = "barplot", barplot),
-               barplot),
+      tabItem(tabName = "heatmap", heatmap),
-      tabPanel("Heatmap",
+      tabItem(tabName = "rarefactionCurve", rarefactionCurve),
-               heatmap),
+      tabItem(tabName = "richnessA", richnessA),
-      tabPanel("Rarefaction curves",
+      tabItem(tabName = "richnessB", richnessB),
-               rarefactionCurve),
+      tabItem(tabName = "mds", mds),
-      tabPanel(HTML("&alpha;-diversity"),
+      tabItem(tabName = "pca", pca),
-               richnessA),
+      tabItem(tabName = "tree", tree),
-      tabPanel(HTML("&beta;-diversity"),
+      tabItem(tabName = "cluster", cluster),
-               richnessB),
+      tabItem(tabName = "Help", Help)
-      tabPanel("MultiDimensional Scaling",
-               mds),
-      tabPanel("PCA",
-               pca),
-      tabPanel("Phylogenetic tree",
-               tree),
-      tabPanel("Clustering",
-               cluster),
-      tabPanel("Help",
-               Help)
      )
    )
  )