Update R/build_network_window.R

R/build_network_window.R

@@ -470,6 +470,59 @@ build_network_window <- function(f_pos, mainpanel, mainpath) {
       ### Construction du reseau
       
       if (organism == "Other") {
+        
+        if (degree == "Second-degree") {
+          
+          panelorganism <- gwindow("Organism description", parent = f_pos, visible = F, expand = T)
+          
+          pc <- ggroup(container = panelorganism, horizontal = F, use.scrollwindow = T)
+          pcsb <- ggroup(container = pc, horizontal = F, use.scrollwindow = F)
+          lg <- gvbox(container = pcsb)
+          test <- gvbox(container = pcsb)
+          test2 = gvbox(container = pcsb)
+          fllg <- gformlayout(container = lg)
+          fllg2 <- gformlayout(container = test2)
+          
+          
+          organismName <- gedit(initial.msg = 'Organism Name', label = "NAME", container = fllg)
+          
+          help_text = glabel(text = "To remove second degree interactants with more\n than x interactions, enter x in the textbox below :", container = test)
+          
+          remove_degree_interactant <- gedit(initial.msg = 'remove degree', label = "Remove number", container = fllg2)
+          
+          visible(panelorganism)  <- T
+          
+          bpc <- ggroup(container = pc); addSpring(bpc)
+          
+          # 1 : Autre organism
+          bouton1 <- gbutton("OK", handler = function(h,...) {
+            # Rassemblement des modifications a apporter
+            org.name <- cbind(names(svalue(fllg)), svalue(fllg))
+            org.name <- data.frame(org.name, row.names = NULL)
+            
+            org <- cbind(org.name)
+            colnames(org) <-  c('Organism_name')
+            
+            organism <- as.character(org[1,2])
+            
+            remove_degree <- svalue(fllg2)
+            
+            if(remove_degree == "") {
+              
+              remove_degree = 0
+              
+            }
+            
+            remove_degree = as.integer(remove_degree)
+            
+            build_network(organism, db, ipl, th, method, degree, remove.sdi, remove.ul, remove.si, update, mainpath, f_pos, remove_degree = remove_degree)
+            
+            dispose(bpc)
+          }, container = bpc)
+          
+          
+        } else {
+        
         panelorganism <- gwindow("Organism description", parent = f_pos, visible = F, expand = T)
         
         pc <- ggroup(container = panelorganism, horizontal = F, use.scrollwindow = T)
@@ -479,6 +532,9 @@ build_network_window <- function(f_pos, mainpanel, mainpath) {
         
         organismName <- gedit(initial.msg = 'Organism Name', label = "NAME", container = fllg)
         
+
+        
+        
         visible(panelorganism)  <- T
         
         bpc <- ggroup(container = pc); addSpring(bpc)
@@ -499,6 +555,8 @@ build_network_window <- function(f_pos, mainpanel, mainpath) {
           dispose(bpc)
         }, container = bpc)
         
+        }
+        
       } else {
         
         if (degree == "Second-degree") {