RDS

panels/dataInput.R

@@ -20,7 +20,8 @@ dataInput <- function(failed = FALSE) {
       choices = list(
         "Demo" = "demo",
         "Input data" = "input",
-        "Rdata" = "rdata"
+        "RData" = "rdata",
+        "RDS" = "rds"
       ),
       selected = "demo"
     ),
@@ -107,7 +108,13 @@ output$dataUI <- renderUI({
       inputId = "fileRData",
       label = "RData where 'data' is a phyloseq object : ",
       placeholder = "data.RData"
+    ),
+    "rds" = fileInput(
+      inputId = "fileRDS",
+      label = "RDS with a phyloseq object : ",
+      placeholder = "phyloseq.RDS"
     )
+    
   )
 })
 
@@ -153,6 +160,12 @@ observeEvent(input$okData, {
             if (!is.null(input$fileRData))
               {load(input$fileRData$datapath, envir = ne)}
             ne$data
+          },
+        "rds" = 
+          {
+            message <- as.character(input$fileRDS$name)
+            if (!is.null(input$fileRDS))
+              {readRDS(input$fileRDS$datapath)}
           }
         )
       ),
@@ -335,13 +348,14 @@ observeEvent(input$transformData, {
     }    
   }
 })
+
 ### Download Data ###
 dataDownload <- function() {
   modalDialog(
     title = "Download data",
     size = "s",
     textInput("dataName", "File name : ", value = paste("Easy16S-data", Sys.Date(), sep = "-")),
-    radioButtons("dataFormat", "File format : ", choices = c("RData", "biom"), selected = "RData", inline = TRUE),
+    radioButtons("dataFormat", "File format : ", choices = c("RData", "RDS", "biom"), selected = "RData", inline = TRUE),
     footer = tagList(modalButton("Cancel"),
                      downloadButton("okDownload", "Download")
     )
@@ -356,6 +370,8 @@ output$okDownload <- downloadHandler(
     if (input$dataFormat == "RData") {
       data <- physeq()
       save(data, file = file)
+    } else if (input$dataFormat == "RDS") {
+      saveRDS(physeq(), file = file)
     } else if (input$dataFormat == "biom") {
       write_phyloseq(physeq = physeq(), biom_file = file, biom_format = "frogs") #"standard"
     }