# uncomment to zoom (X axis between 0 and input$alphaVal) (use "+ xlim(0,as.numeric(alphaVal))" instead, to redraw geom_density with only data under threshold)
### Replace NA by zeros (ie "no correlation") # this way, those elements will appear as single nodes
adjacency[is.na(adjacency)]<-0
adjacency<-adjacency[,ind_taxo]
adjacency<-adjacency[ind_taxo,]
igraphGraph<-graph_from_adjacency_matrix(adjacency,diag=FALSE,mode="upper",weighted=TRUE)# "upper" for adjusted p-value, lower for p-value not adjusted
igraphGraph<-graph_from_adjacency_matrix(adjacency,diag=FALSE,mode="upper",weighted=TRUE)# mode = "upper" for adjusted p-value, mode = "lower" for p-value not adjusted
list_to_label<-isolate(input$ToLabelNetwork)
dataVN<-toVisNetworkData(igraphGraph)
...
...
@@ -898,7 +898,7 @@ Plot_network <- function(input,resDiff,availableTaxo, ind_taxo, qualiVariable, e