Commit 39048633 authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/build_network_window.R

parent 825cf697
......@@ -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") {
......
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