Commit 8e65da7d authored by svolant's avatar svolant
Browse files

correction bug

parents db6ccd7c be3c3d82
...@@ -3,5 +3,4 @@ ...@@ -3,5 +3,4 @@
*.RData *.RData
.Rproj.user .Rproj.user
*.Rproj *.Rproj
AideCode.odt *.json
www/google-analytics.js
options(download.file.method = 'wget') options(download.file.method = 'wget')
if (!require("backports")){
install.packages("backports")
library(backports)
}
if (!require("backports")){ if (!require("backports")){
install.packages("backports") install.packages("backports")
...@@ -8,15 +12,18 @@ if (!require("backports")){ ...@@ -8,15 +12,18 @@ if (!require("backports")){
if (!require("readr")){ if (!require("readr")){
install.packages("readr") install.packages("readr")
library(readr)
} }
if (!require("jsonlite")){ if (!require("jsonlite")){
install.packages("jsonlite") install.packages("jsonlite")
library(jsonlite)
} }
if (!require("shinyFiles")){ if (!require("shinyFiles")){
install.packages("shinyFiles") install.packages("shinyFiles")
library(shinyFiles)
} }
...@@ -179,6 +186,7 @@ if(!require(PhyloTreeMetaR)){ ...@@ -179,6 +186,7 @@ if(!require(PhyloTreeMetaR)){
library(PhyloTreeMetaR) library(PhyloTreeMetaR)
} }
# if(!require(plotly)){ # if(!require(plotly)){
# install.packages("plotly") # install.packages("plotly")
# library(plotly) # library(plotly)
......
...@@ -317,8 +317,7 @@ SamplesMasque <- function(input,values) ...@@ -317,8 +317,7 @@ SamplesMasque <- function(input,values)
CreateJSON <- function(input){ CreateJSON <- function(input){
curdir <- getwd()
curdir = getwd()
tmpjson = tempfile(pattern = "file", tmpdir = paste(curdir,"www","masque","todo",sep= .Platform$file.sep), fileext = ".json") tmpjson = tempfile(pattern = "file", tmpdir = paste(curdir,"www","masque","todo",sep= .Platform$file.sep), fileext = ".json")
if(input$PairedOrNot=='n') 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