Commit e25c1985 authored by Midoux Cedric's avatar Midoux Cedric

richess beta : heatmap + table

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