added a "Download Filtered Data" button & its logisitics

Author: Oliver Drechsel

tool/server.R

@@ -378,7 +378,16 @@ shinyServer(function(input, output, session) {
       write.csv(plot.settings, txtfile, row.names=FALSE)
     }
   )
+  
+  # download the filtered data shown in the data table beneath the plot
+  output$downloadFilteredData <- downloadHandler(
+    filename = "filtered_data.tsv",
+    content = function(file) {
+      write.table(plot.raw.data(), file = file, sep='\t', row.names=FALSE, col.names=TRUE, quote = FALSE)
+    }
+  )
 
+  # download the raw input data
   output$downloadData <- downloadHandler(
     filename = "raw_data.tsv",
     content = function(file) {

tool/ui.R

@@ -117,7 +117,11 @@ shinyUI(fluidPage(
                                               # download the input data or unzipped/shaped data 
                                        column(2,
                                               downloadButton('downloadData', 'Download Raw Data')
-                                       ),
+                                              ),
+                                              # download filtered table
+                                       column(2,
+                                              downloadButton('downloadFilteredData', 'Download Filtered Data')
+                                              ),
 
                                        # show a head of the new data set (influenced by "method")
                                        #tableOutput("view")