Commit 12721cab authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Limit upload to 2 gb

parent 2aa2a0b8
......@@ -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)
#}
......
......@@ -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)
}
})
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment