deseq <- fluidPage(outputCodeButton(withLoader(plotOutput("deseq", height = 700))), uiOutput("deseqUI"))