Commit d16fa1de authored by Midoux Cedric's avatar Midoux Cedric
Browse files

withLoader

parent 1b4662a6
library(shinydashboard) library(shinydashboard)
library(shinycustomloader)
shinyUI(dashboardPage( shinyUI(dashboardPage(
dashboardHeader(title = "Easy16S"), dashboardHeader(title = "Easy16S"),
dashboardSidebar( dashboardSidebar(
...@@ -71,16 +72,14 @@ shinyUI(dashboardPage( ...@@ -71,16 +72,14 @@ shinyUI(dashboardPage(
tabPanel( tabPanel(
"Summary", "Summary",
verbatimTextOutput("phyloseqPrint"), verbatimTextOutput("phyloseqPrint"),
uiOutput("summaryTable") withLoader(uiOutput("summaryTable"))
),
tabPanel(
"Global barplot",
plotOutput("histo", height = 700),
uiOutput("histUI")
), ),
tabPanel("Global barplot",
withLoader(plotOutput("histo", height = 700)),
uiOutput("histUI")),
tabPanel( tabPanel(
"Filtered barplot", "Filtered barplot",
plotOutput("histoFocus", height = 700), withLoader(plotOutput("histoFocus", height = 700)),
box( box(
title = "Paramètres", title = "Paramètres",
width = NULL, width = NULL,
...@@ -92,25 +91,23 @@ shinyUI(dashboardPage( ...@@ -92,25 +91,23 @@ shinyUI(dashboardPage(
uiOutput("histFocusUIfocusX") uiOutput("histFocusUIfocusX")
) )
), ),
tabPanel( tabPanel("Heatmap",
"Heatmap", withLoader(plotOutput("Heatmap", height = 700)),
plotOutput("Heatmap", height = 700), uiOutput("HeatmapUI")),
uiOutput("HeatmapUI")
),
tabPanel( tabPanel(
"Rarefaction curves", "Rarefaction curves",
plotOutput("rarefactionCurve", height = 700), withLoader(plotOutput("rarefactionCurve", height = 700)),
uiOutput("rarefactionCurveUI") uiOutput("rarefactionCurveUI")
), ),
tabPanel(HTML("α-diversity"), tabPanel(HTML("α-diversity"),
box( box(
width = NULL, tabsetPanel( width = NULL, tabsetPanel(
tabPanel( tabPanel("Plots",
"Plots", withLoader(plotOutput(
plotOutput("richnessA", height = 700), "richnessA", height = 700
uiOutput("richnessAUI") )),
), uiOutput("richnessAUI")),
tabPanel("Tables", uiOutput("richnessATable")) tabPanel("Tables", withLoader(uiOutput("richnessATable")))
) )
)), )),
tabPanel( tabPanel(
...@@ -129,34 +126,30 @@ shinyUI(dashboardPage( ...@@ -129,34 +126,30 @@ shinyUI(dashboardPage(
) )
), ),
box(width = NULL, tabsetPanel( box(width = NULL, tabsetPanel(
tabPanel( tabPanel("Heatmap",
"Heatmap", withLoader(plotOutput(
plotOutput("richnessB", height = 700), "richnessB", height = 700
uiOutput("richnessBUI") )),
), uiOutput("richnessBUI")),
tabPanel( tabPanel("Networks",
"Networks", withLoader(plotOutput("networkB", height = 700)),
plotOutput("networkB", height = 700), uiOutput("networkBUI")),
uiOutput("networkBUI") tabPanel("Tables", withLoader(uiOutput("richnessBTable")))
),
tabPanel("Tables", uiOutput("richnessBTable"))
)) ))
), ),
tabPanel( tabPanel(
"MultiDimensional Scaling", "MultiDimensional Scaling",
plotOutput("acp", height = 700), withLoader(plotOutput("acp", height = 700)),
uiOutput("acpUI") uiOutput("acpUI")
), ),
tabPanel( tabPanel(
"Phylogenetic tree", "Phylogenetic tree",
plotOutput("tree", height = 700), withLoader(plotOutput("tree", height = 700)),
uiOutput("treeUI") uiOutput("treeUI")
), ),
tabPanel( tabPanel("Clustering",
"Clustering", withLoader(plotOutput("clust", height = 700)),
plotOutput("clust", height = 700), uiOutput("clustUI")),
uiOutput("clustUI")
),
tabPanel( tabPanel(
"Help", "Help",
div( div(
......
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