Commit 02e7b2e0 authored by Amine  GHOZLANE's avatar Amine GHOZLANE

Debug one specie issue in boxplot and barplot

parent 1bf6d75f
Pipeline #36391 failed with stage
in 1 minute and 53 seconds
......@@ -715,14 +715,11 @@ GetDataToPlot <- function(input,resDiff,VarInt,ind_taxo,sec_variable = NULL, agg
{
MeanCounts = apply(counts_tmp_combined,2,mean)
ord = order(MeanCounts,decreasing=TRUE)
if(nrow(counts_tmp_combined)==1) counts_tmp_combined[ord]
else counts_tmp_combined = counts_tmp_combined[,ord]
if(ncol(counts_tmp_combined)> 1) counts_tmp_combined = counts_tmp_combined[,ord]
if(!aggregate){
if(nrow(prop_tmp_combined)==1) prop_tmp_combined[ord]
else prop_tmp_combined = prop_tmp_combined[,ord]
if(ncol(counts_tmp_combined)> 1) prop_tmp_combined = prop_tmp_combined[,ord]
}
if(nrow(prop_all)==1) prop_all[ord]
else prop_all = prop_all[,ord]
if(ncol(prop_all)>1) prop_all = prop_all[,ord]
}
}
}
......
......@@ -525,7 +525,7 @@ function(request) {
checkboxInput("NoTaxoFile","No taxonomy table",value=FALSE),
selectInput("DemoDataset",h6(strong('Or select a dataset')),
c("..."="...",
"ZymoBIOMICS mock 16S: Volant et al. 2019"=c("10b0238abee0d|silva|Volant et al. 2019 in review"),
"ZymoBIOMICS mock 16S: Volant et al. 2020"=c("10b0238abee0d|silva|Volant et al. 2020 in review"),
"Afribiota: Vonaesch et al. 2018"=c("1be225fc935c7|silva|Vonaesch et al. 2018"),
"DNA extraction protocols 16S: Angebault et al. 2018"=c("eec74b27d162|silva|Angebault et al. 2018"),
"DNA extraction protocols ITS1: Angebault et al. 2018"=c("3580714197f5|unite|Angebault et al. 2018"),
......
Markdown is supported
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