Commit 4f277dce authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Phylogeny appear only when tree is uploaded

parent f1d12a47
......@@ -745,13 +745,11 @@ CreateTableTree <- function(input,resDiff,CT_Norm_OTU,taxo_table,VarInt,ind_taxo
# Group per condition
if(nrow(counts_tmp)>0 && nrow(targetInt)>0)
{
print(t(counts_tmp)[1:2,])
counts_tmp_combined = aggregate(t(counts_tmp),by=list(targetInt$AllVar),mean)
namesCounts = counts_tmp_combined$Group.1
rownames(counts_tmp_combined) = namesCounts
counts_tmp_combined = as.matrix(counts_tmp_combined[,-1])
print(counts_tmp_combined[1:2,])
}
......
......@@ -860,7 +860,7 @@ shinyServer(function(input, output,session) {
AddCont()
},priority=1)
## Add contrast function
AddContEasy <-eventReactive(input$AddContrastEasy,{
......@@ -1220,7 +1220,13 @@ shinyServer(function(input, output,session) {
}
)
## Add Phylogenetic tree in the result
observeEvent(input$fileTree,{
updateSelectizeInput(session, "PlotVisuSelect", "",
c("Barplot"="Barplot","Heatmap"="Heatmap","Boxplot"="Boxplot",
"Tree"="Tree","Scatterplot"="Scatterplot","Diversity"="Diversity",
"Rarefaction"="Rarefaction","Krona"="Krona","Phylogeny"="Phylogeny"))
}, priority=1)
#####################################################
......
......@@ -648,12 +648,12 @@ body <- dashboardBody(
)
),
column(width=3,
box(title = "Select your plot", width = NULL, status = "primary", solidHeader = TRUE,collapsible = FALSE,collapsed= FALSE,
selectizeInput("PlotVisuSelect","",c("Barplot"="Barplot","Heatmap"="Heatmap","Boxplot"="Boxplot","Tree"="Tree","Scatterplot"="Scatterplot","Diversity"="Diversity","Rarefaction"="Rarefaction","Krona"="Krona", "Phylogeny"="Phylogeny"),selected = "Barplot")
selectizeInput("PlotVisuSelect","",c("Barplot"="Barplot","Heatmap"="Heatmap","Boxplot"="Boxplot","Tree"="Tree","Scatterplot"="Scatterplot","Diversity"="Diversity","Rarefaction"="Rarefaction","Krona"="Krona"),selected = "Barplot")
),
########################################################################
###
......
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