Debug for R 3.1.2

.gitignore

@@ -3,5 +3,4 @@
 *.RData
 .Rproj.user
 *.Rproj
-AideCode.odt
-www/google-analytics.js
+*.json

LoadPackages.R

 options(download.file.method = 'wget')
 
+if (!require("backports")){
+  install.packages("backports")
+  library(backports)
+}
 
 if (!require("readr")){
   install.packages("readr")
+  library(readr)
 }
 
 if (!require("jsonlite")){
   install.packages("jsonlite")
+  library(jsonlite)
 }
 
 
 if (!require("shinyFiles")){
   install.packages("shinyFiles")
+  library(shinyFiles)
 }
 
 
@@ -174,6 +181,7 @@ if(!require(PhyloTreeMetaR)){
   library(PhyloTreeMetaR)
 }
 
+
 # if(!require(plotly)){
 #   install.packages("plotly")
 #   library(plotly)  

Rfunctions/Data_Management.R

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