Merge branch 'master' of gitlab-ssh.irstea.fr:cedric.midoux/easy16S

.gitignore

 .Rhistory
 .RData
+*.Rproj
+.Rproj.user
 
 .Rproj.user

demo/biorare.tsv

+Nom	Reacteur	Compartiment	Date
+170517_4A	4	anode	17/05/2017
+170517_4C	4	cathode	17/05/2017
+170517_5A	5	anode	17/05/2017
+170517_5C	5	cathode	17/05/2017
+170517_6A	6	anode	17/05/2017
+170517_6C	6	cathode	17/05/2017
+170517_7A	7	anode	17/05/2017
+170517_7C	7	cathode	17/05/2017
+170517_8A	8	anode	17/05/2017
+170517_8C	8	cathode	17/05/2017
+170517_9A	9	anode	17/05/2017
+170517_9C	9	cathode	17/05/2017
+170517_10A	10	anode	17/05/2017
+170517_10C	10	cathode	17/05/2017
+170517_11A	11	anode	17/05/2017
+170517_11C	11	cathode	17/05/2017
+170517_12A	12	anode	17/05/2017
+170517_12C	12	cathode	17/05/2017

server.R

@@ -27,7 +27,7 @@ shinyServer
       options = list(
         dom = "lBtip",
         pageLength = 10,
-        lengthMenu = list(c(10, 25, 50, 100,-1), list('10', '25', '50', '100', 'All')),
+        lengthMenu = list(c(10, 25, 50, 100, -1), list('10', '25', '50', '100', 'All')),
         buttons = list(
           'colvis',
           list(
@@ -114,14 +114,51 @@ shinyServer
       return(d)
     } else if (input$dataset == "rdata")
     {
+      if (is.null(input$fileRData))
+      {
+        return()
+      }
       load(input$fileRData$datapath)
-      return(data)
+      if (exists("data"))
+      {
+        return(data)
+      } else {
+        return()
+      }
     } else {
       load("demo/demo.RData")
       return(get(input$dataset))
     }
   })
   
+  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(