Add export tables

aghozlane · Jun 9, 2020 · 5886bc6 · 5886bc6
1 parent 287438d
commit 5886bc6
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1,3 +1,4 @@
+redoofig.R
 *.Rproj.user
 *.Rhistory
 *.RData

diff --git a/server.R b/server.R
@@ -642,7 +642,8 @@ shinyServer(function(input, output,session) {
     if(!is.null(tree))
     {
       res = tabBox(width = NULL, selected = "Count table",
-                   tabPanel("Count table",DT::dataTableOutput("DataCounts")),
+                   tabPanel("Count table",DT::dataTableOutput("DataCounts"),
+                            downloadButton('ExportRawCounts', 'Export count table file')),
                    tabPanel("Taxonomy",DT::dataTableOutput("DataTaxo"), 
                             actionButton("deleteTaxo", "Delete annotation"),
                             downloadButton('ExportTaxo', 'Export taxonomy file')),
@@ -655,7 +656,8 @@ shinyServer(function(input, output,session) {
     else
     {
       res = tabBox(width = NULL,selected = "Count table",
-                   tabPanel("Count table",DT::dataTableOutput("DataCounts")),
+                   tabPanel("Count table",DT::dataTableOutput("DataCounts"),
+                            downloadButton('ExportRawCounts', 'Export count table file')),
                    tabPanel("Taxonomy",DT::dataTableOutput("DataTaxo"),
                             actionButton("deleteTaxo", "Delete annotation"),
                             downloadButton('ExportTaxo', 'Export taxonomy file')),
@@ -2307,6 +2309,10 @@ shinyServer(function(input, output,session) {
       write_biom(make_biom(dataMergeCounts()$CT_noNorm, sample_metadata=values$TargetWorking[,-1],
                            observation_metadata=dataInput()$data$taxo_biom), file)}
   )
+  output$ExportRawCounts <- downloadHandler(
+    filename = function() { 'SHAMAN_count.csv' },
+    content = function(file){write.csv(dataInput()$data$counts, file)}
+  )
 
   output$ExportTaxo <- downloadHandler(
     filename = function() { 'SHAMAN_taxo.csv' },