deseq <- fluidPage(outputCodeButton(withLoader(plotOutput("deseq", height = 700))),
                   box(
                     title = "Table of OTUs with significant effect",
                     width = NULL,
                     status = "primary",
                     collapsible = TRUE,
                     collapsed = TRUE,
                     DT::DTOutput("deseqTable")),
                   uiOutput("deseqUI"))