downloadButton

server.R

@@ -122,6 +122,34 @@ shinyServer
     }
   })
   
+  data <- reactiveValues()
+  {
+    observe({
+      if (!is.null(data16S()))
+        isolate(data <<- data16S())
+    })
+  }
+  
+  output$downloadData <- {
+    downloadHandler(
+      filename = function() {
+        paste("Easy16S-data", Sys.Date(), "RData", sep = ".")
+      },
+      content = function(file) {
+        save(data, file = file)
+      }
+    )
+  }
+  
+  output$downloadUI <- renderUI({
+    validate(need(data16S(), ""))
+    tags$div(
+      style = "text-align:center",
+      title = "Download as RData",
+      downloadButton("downloadData", "Download", style = "color: black; background-color: gray90")
+    )
+  })
+  
   output$rarefactionMin <- renderText({
     validate(need(input$fileBiom, ""),
              need(input$dataset == "input", ""))

ui.R

@@ -67,7 +67,7 @@ shinyUI(dashboardPage(
       fileInput("fileTree",
                 label = "Phylogenetic tree : ",
                 placeholder = "data.nwk")
-    )#,
+    ),
     # tags$div(
     #   title = "Representative FASTA sequences of OTU",
     #   fileInput(
@@ -75,7 +75,8 @@ shinyUI(dashboardPage(
     #     label = "FASTA sequences : "),
     #     placeholder = "data.fasta"
     #   )
-    # )
+    # ),
+    uiOutput("downloadUI")
   ),
   dashboardBody(
     tabsetPanel(