inst/shiny_app/server/tabEnrichment/GOTable.R

In svalvaro/MQanalyser: Analyse the proteomics LC-MS/MS data from MaxQuant.

output$geneOntologyDataTable <- DT::renderDataTable({

    DT::datatable(geneOntologyTable(),
                  extensions = 'Scroller',

                  options = list(scrollY=500,
                                 scrollX=30),
                  width = '400px')
})

# Download the table button

output$download_enrichment_table <- downloadHandler(

    filename = function(){ 'enrichment_results.csv'},
    content = function(fname){
        write.csv(geneOntologyTable(), fname)
    }
)