Phylogeny appear only when tree is uploaded

Rfunctions/VisuPlot.R

@@ -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,])
       }
 
       

server.R

@@ -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)
   
   
   #####################################################

ui.R

@@ -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")
               ),
-
+            
 
               ########################################################################
               ###