deseq-ui.R 424 Bytes
Newer Older
Midoux Cedric's avatar
Midoux Cedric committed
1
deseq <- fluidPage(outputCodeButton(withLoader(plotOutput("deseq", height = 700))),
Midoux Cedric's avatar
Midoux Cedric committed
2
3
4
5
6
7
8
                   box(
                     title = "Table of OTUs with significant effect",
                     width = NULL,
                     status = "primary",
                     collapsible = TRUE,
                     collapsed = TRUE,
                     DT::DTOutput("deseqTable")),
Midoux Cedric's avatar
Midoux Cedric committed
9
                   uiOutput("deseqUI"))