Limit upload to 2 gb

global.R

@@ -2,8 +2,8 @@
 #if(Sys.info()["nodename"] == "ShinyPro"){
 #  options(shiny.maxRequestSize=1000000000*1024^2)
 #}else{
-# No limit with the raw data submission
-options(shiny.maxRequestSize=500000000000000*1024^2)
+# Limit with the raw data submission to 2Gb
+options(shiny.maxRequestSize=2000000000)
 #}
 
 

server.R

@@ -28,7 +28,7 @@ shinyServer(function(input, output,session) {
   observe(if(input$AddRegScatter) info("By adding the regression line, you will lose interactivity."))
   
   ## Reactive target
-  values <- reactiveValues(TargetWorking = target,labeled=NULL,fastq_names_only=NULL,fastq_size_only=NULL,R1fastQ=NULL,R2fastQ=NULL,
+  values <- reactiveValues(TargetWorking = target,labeled=NULL,fastq_names_only=NULL,R1fastQ=NULL,R2fastQ=NULL,
                            json_name=json_name,num=0,pass=pass,login_email = NULL,is.valid =NULL,
                            biom_masque = NULL,tree_masque=NULL, masque_key = NULL, count_table_masque = NULL, 
                            rdp_annot_masque = NULL, rdp_thres_masque = NULL,
@@ -767,13 +767,11 @@ shinyServer(function(input, output,session) {
   observeEvent(input$dir,{
     
     inFiles <- input$dir
-    print(inFiles)
+    
     if (!is.null(inFiles)){
     # values$fastq_names_only = unique(paste(values$fastq_names_only,inFiles$name))
     values$paths_fastq_tmp = rbind(isolate(values$paths_fastq_tmp),inFiles)
     values$fastq_names_only = isolate(unique(values$paths_fastq_tmp[,"name"]))
-    values$fastq_size_only = isolate(unique(values$paths_fastq_tmp[,"size"]))
-    print(values$fastq_size_only)
     }
   })