Update R/build_network_window.R, R/methods.R

R/build_network_window.R

@@ -214,7 +214,7 @@ build_network = function(organism, db, ipl, th, method, degree, remove.sdi, remo
   cat ( '\n>Autocorrection' )
   cat ( '\n' )
   data2 <<- data
-  pb1 <<- txtProgressBar(min = 0, max = dim(data)[1], style = 3)
+  pb1 <<- txtProgressBar(min = 0, max = dim(data2)[1], style = 3)
   nbpassage<<-0
   nf<<-c()
   apply(data2,1,cherche_uniprotID,data=data2,thesaurus=thesaurus)

R/methods.R

@@ -653,7 +653,7 @@ remove_unique_links <- function(inputtable) {
     
     if(length(ind2) == 1) {
       
-      tab_PPI = tab_PPI[-ind,]
+      tab_PPI = tab_PPI[-unique(ind),]
       
     }