Commit e25c1985 authored by Midoux Cedric's avatar Midoux Cedric

richess beta : heatmap + table

parent 6635a0a3
This diff is collapsed.
richnessB <- fluidPage( betaCluster <- fluidPage(outputCodeButton(withLoader(plotOutput("betaCluster", height = 700))),
selectInput("richnessBDist", uiOutput("betaClusterUI"))
label = "Distance : ", betaHeatmap <- fluidPage(outputCodeButton(withLoader(plotOutput("betaHeatmap", height = 700))),
choices = list("bray", "jaccard", "unifrac", "wunifrac", "dpcoa", "jsd", "euclidean")), uiOutput("betaHeatmapUI"))
box(width = NULL, betaNetworks <- fluidPage(outputCodeButton(withLoader(plotOutput("betaNetworks", height = 700))),
tabsetPanel( uiOutput("betaNetworksUI"))
tabPanel("Heatmap", betaTable <- fluidPage(uiOutput("betaTable"))
withLoader(plotOutput("richnessB", height = 700)),
uiOutput("richnessBUI")),
tabPanel("Networks",
withLoader(plotOutput("networkB", height = 700)),
uiOutput("networkBUI")),
tabPanel("Tables",
withLoader(uiOutput("richnessBTable")))
)
)
)
...@@ -38,6 +38,9 @@ dashboardHeader(title = "Easy16S"), ...@@ -38,6 +38,9 @@ dashboardHeader(title = "Easy16S"),
menuSubItem("Table", tabName = "alphaTable") menuSubItem("Table", tabName = "alphaTable")
), ),
menuItem(HTML("&beta;-diversity"), icon = icon("th"), menuItem(HTML("&beta;-diversity"), icon = icon("th"),
selectInput("betaDistance",
label = "Distance : ",
choices = list("bray", "jaccard", "unifrac", "wunifrac", "dpcoa", "jsd", "euclidean")),
menuSubItem("Samples clustering", tabName = "betaCluster"), menuSubItem("Samples clustering", tabName = "betaCluster"),
menuSubItem("Samples heatmap", tabName = "betaHeatmap"), menuSubItem("Samples heatmap", tabName = "betaHeatmap"),
menuSubItem("Networks", tabName = "betaNetworks"), menuSubItem("Networks", tabName = "betaNetworks"),
......
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