Commit be3c3d82 authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Debug for R 3.1.2

parent 9b70ee7c
......@@ -3,5 +3,4 @@
*.RData
.Rproj.user
*.Rproj
AideCode.odt
www/google-analytics.js
*.json
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)
......
......@@ -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')
{
......
This diff is collapsed.
Supports Markdown
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