Commit 84471e47 authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Remove useless test and plotly dependencie again

parent b3fb4df8
...@@ -130,10 +130,10 @@ if (!require(scales)) { ...@@ -130,10 +130,10 @@ if (!require(scales)) {
install.packages('scales') install.packages('scales')
library(scales) library(scales)
} }
if(!require(plotly)){ # if(!require(plotly)){
install.packages("plotly") # install.packages("plotly")
library(plotly) # library(plotly)
} # }
# Allow to upload 50M files only shaman server # Allow to upload 50M files only shaman server
if(Sys.info()["nodename"] == "shaman"){ if(Sys.info()["nodename"] == "shaman"){
......
...@@ -293,7 +293,7 @@ shinyServer(function(input, output,session) { ...@@ -293,7 +293,7 @@ shinyServer(function(input, output,session) {
res = NULL res = NULL
counts = isolate(dataMergeCounts()$counts) counts = isolate(dataMergeCounts()$counts)
tot = rowSums(counts) tot = rowSums(counts)
save(counts,tot,file="testFilter.RData") #save(counts,tot,file="testFilter.RData")
withProgress({tmp = SelectThreshAb(counts,lambda=max(round(sum(counts)/nrow(counts)*0.05),min(tot)+1),graph=FALSE)},message="Loading...") withProgress({tmp = SelectThreshAb(counts,lambda=max(round(sum(counts)/nrow(counts)*0.05),min(tot)+1),graph=FALSE)},message="Loading...")
res = sliderInput("SliderThAb","Threshold on the total abundance (in log)",min=0,max=round(max(log(tot+1)),1),value = log(tmp+1)) res = sliderInput("SliderThAb","Threshold on the total abundance (in log)",min=0,max=round(max(log(tot+1)),1),value = log(tmp+1))
......
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