correction bug

LoadPackages.R

 options(download.file.method = 'wget')
 
 
+if (!require("backports")){
+  install.packages("backports")
+  
+}
+
 if (!require("readr")){
   install.packages("readr")
 }

Rfunctions/Data_Management.R

@@ -318,8 +318,8 @@ SamplesMasque <- function(input,values)
 
 CreateJSON <- function(input){
   
-  tmpjson = tempfile(pattern = "file", tmpdir = "/Volumes/@home/Projets Hub/Metagenomique/meta16s/www/masque/todo",  fileext = ".json")
-  file.create(tmpjson,showWarnings=FALSE)
+  curdir  = getwd()
+  tmpjson = tempfile(pattern = "file", tmpdir = paste(curdir,"www","masque","todo",sep= .Platform$file.sep),  fileext = ".json")
   
   if(input$PairedOrNot=='n')
   {

server.R

@@ -16,11 +16,16 @@ shinyServer(function(input, output,session) {
   file.create(namesfile,showWarnings=FALSE)
   target = NULL
   
+  
+  ## JSON name for masque
+  curdir  = getwd()
+  json_name = tempfile(pattern = "file", tmpdir = paste(curdir,"www","masque","todo",sep= .Platform$file.sep),  fileext = ".json")
+  
   ## Popup messages
   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,R1fastQ=NULL,R2fastQ=NULL)
+  values <- reactiveValues(TargetWorking = target,labeled=NULL,fastq_names_only=NULL,R1fastQ=NULL,R2fastQ=NULL,json_name=json_name)
   
   ## Counts file
   dataInputCounts <-reactive({ 
@@ -707,7 +712,7 @@ shinyServer(function(input, output,session) {
       }
       
       ## Create JSON file
-      withProgress(message = 'Creating JSON file...',{CreateJSON(input)})
+      withProgress(message = 'Creating JSON file...',{CreateJSON(input,values$json_name)})
     }
     
   })
@@ -876,6 +881,17 @@ shinyServer(function(input, output,session) {
     
   })
   
+  
+  output$gaugeMasque <-renderGauge({
+    
+    values$json_name
+    num = 0
+    gauge(num, 0,100,symbol = '%')
+    
+  })
+  
+  
+  
   ######################## END MASQUE #################################
   
   

ui.R

@@ -258,7 +258,12 @@ body <- dashboardBody(
             #                      <\ui> to analyse 16S/18S/23S/28S/ITS data. It builds a count matrix, an annotation table and a phylogeny of the OTU.
             #                      to perform to use a set of parameters already tested on serveral projects for the numerous software used to perform the clustering and the annotation.
             #                      to perform an uptodate analysis considering the scientific litterature."
-                          ))),
+                          )),
+            
+            column(width=4,
+                   gaugeOutput("gaugeMasque", width = "100%", height = "100%")
+                   )
+            ),
             
             hr(),
             HTML('<center><h2 style="color:#053383;"><b>Start your analysis</b></h2></center>'),