correction bug

.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("backports")){
   install.packages("backports")
@@ -8,15 +12,18 @@ if (!require("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)
 }
 
 
@@ -179,6 +186,7 @@ if(!require(PhyloTreeMetaR)){
   library(PhyloTreeMetaR)
 }
 
+
 # if(!require(plotly)){
 #   install.packages("plotly")
 #   library(plotly)  

Rfunctions/Data_Management.R

@@ -317,8 +317,7 @@ SamplesMasque <- function(input,values)
 
 
 CreateJSON <- function(input){
-  
-  curdir  = getwd()
+  curdir <- getwd()
   tmpjson = tempfile(pattern = "file", tmpdir = paste(curdir,"www","masque","todo",sep= .Platform$file.sep),  fileext = ".json")
   
   if(input$PairedOrNot=='n')