Update R/tfit.R, R/clustering_tfit_window.R

R/clustering_tfit_window.R

@@ -29,7 +29,9 @@ clustering_tfit <- function(organism, network) {
   cat('\n>Running TFit...')
   
   # Appel de la fonction tfit: TODO = save results somewhere
-  tfit(File.gr) ##################################################
+  result_tfit = tfit(File.gr) ##################################################
+
+  
   
   cat("OK\n\n>Clustering TFit is done.\n")
   cat(paste('\n>Results are stocked in : ', saveTFit.path))

R/tfit.R

@@ -26,5 +26,6 @@ tfit <- function(X)
     adjacencyMatrix[integerEdge2,integerEdge1] <- TRUE #symmetric graph
   }
   partition <- .Call("tfit", adjacencyMatrix, PACKAGE = "appinetwork")
-  list("partition"=partition, "labels"=labels)
+  result_tfit = list("partition"=partition, "labels"=labels)
+  return result_tfit
 }