Allow upload of compressed files

00ef3626 · dmattek · f544f945 · 00ef3626 · 00ef3626
Commit 00ef3626 authored Oct 09, 2019 by dmattek
--- a/server.R
+++ b/server.R
@@ -140,7 +140,10 @@ shinyServer(function(input, output, session) {
      fileInput(
        'inFileLoadTrajRem',
        "Select file and click Load Data",
-        accept = c('text/csv', 'text/comma-separated-values,text/plain')
+        accept = c("text/csv", 
+                   "text/comma-separated-values,text/plain", 
+                   "application/gzip", 
+                   "application/bz2"), 
      )
  })
  
@@ -161,7 +164,10 @@ shinyServer(function(input, output, session) {
      fileInput(
        'inFileLoadStim',
        "Select file and click Load Data",
-        accept = c('text/csv', 'text/comma-separated-values,text/plain')
+        accept = c("text/csv", 
+                   "text/comma-separated-values,text/plain", 
+                   "application/gzip", 
+                   "application/bz2"), 
      )
  })
  

--- a/ui.R
+++ b/ui.R
@@ -24,7 +24,10 @@ shinyUI(fluidPage(
      fileInput(
        'inFileLoadNuc',
        "Select data file and click Load Data",
-        accept = c('text/csv', 'text/comma-separated-values,text/plain', "application/gzip", "application/bz2"), 
+        accept = c("text/csv", 
+                   "text/comma-separated-values,text/plain", 
+                   "application/gzip", 
+                   "application/bz2"), 
      ),

      radioButtons("inRbutLongWide", actionLink("alDataFormat", "Data Format:"), c("Long" = 0, "Wide" = 1), inline = T),