Commit 9645df47 authored by svolant's avatar svolant
Browse files

Option Non diff

parent 57d7a5d5
......@@ -1359,7 +1359,28 @@ output$RunButton <- renderUI({
else selTaxo = NULL
res = selectizeInput("selectTaxoPlot",h6(strong(paste("Select the",input$TaxoSelect, "to plot"))),Available_taxo, selected = selTaxo,multiple = TRUE,options = list(minItems = 2))
}
}
}
if(input$SelectSpecifTaxo=="NoDiff")
{
filesize = file.info(namesfile)[,"size"]
if(is.na(filesize)){filesize=0}
if(filesize!=0)
{
BaseContrast = read.table(namesfile,header=TRUE)
SelContrast = input$ContrastList_table_Visu
padj = Get_log2FC_padj(input,BaseContrast,resDiff, info = NULL)$padj
Feature_names = rownames(padj)
if(ncol(as.matrix(padj))>1)
{
cont = which(colnames(padj)%in%SelContrast)
padj = padj[,cont]
}
ind = which(padj>input$AlphaVal)
if(length(ind)>0) selTaxo = Feature_names[ind]
else selTaxo = NULL
res = selectizeInput("selectTaxoPlot",h6(strong(paste("Select the",input$TaxoSelect, "to plot"))),Available_taxo, selected = selTaxo,multiple = TRUE,options = list(minItems = 2))
}
}
if(input$SelectSpecifTaxo=="All") res = selectizeInput("selectTaxoPlot",h6(strong(paste("Select the",input$TaxoSelect, "to plot"))),Available_taxo, selected = Available_taxo,multiple = TRUE)
}
return(res)
......
......@@ -416,9 +416,9 @@ body <- dashboardBody(
),
conditionalPanel(condition="input.PlotVisuSelect!='Rarefaction' && input.PlotVisuSelect!='Diversity'",
radioButtons("SelectSpecifTaxo","Select the features",c("Most abundant"="Most","All"="All", "Differential features" = "Diff"))
radioButtons("SelectSpecifTaxo","Select the features",c("Most abundant"="Most","All"="All", "Differential features" = "Diff", "Non differential features" = "NoDiff"))
),
conditionalPanel(condition="input.PlotVisuSelect!='Rarefaction' && input.PlotVisuSelect!='Diversity' && input.SelectSpecifTaxo=='Diff'",
conditionalPanel(condition="input.PlotVisuSelect!='Rarefaction' && input.PlotVisuSelect!='Diversity' && (input.SelectSpecifTaxo=='Diff' || && input.SelectSpecifTaxo=='NoDiff') ",
selectizeInput("ContrastList_table_Visu","",choices = "", multiple = FALSE)
),
conditionalPanel(condition="input.PlotVisuSelect!='Rarefaction' && input.PlotVisuSelect!='Diversity'",
......
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