Merge pull request #27 from saezlab/no_solver

0 length seeds protection

Author: adugourd

R/compress_same_children.R

@@ -221,9 +221,12 @@ decompress_solution_network <- function(formatted_res, meta_network, node_signat
   seeds <- SIF[!(SIF[,1] %in% SIF[,2]),1]
   bad_seeds <- seeds[!(seeds %in% ATT[ATT$NodeType == "P","Nodes"])]
 
-  ATT <- ATT[!(ATT$Nodes %in% bad_seeds),]
-  SIF <- SIF[SIF$source %in% ATT$Nodes &
-               SIF$target %in% ATT$Nodes,]
+  if(length(bad_seeds) > 0)
+  {
+    ATT <- ATT[!(ATT$Nodes %in% bad_seeds),]
+    SIF <- SIF[SIF$source %in% ATT$Nodes &
+                 SIF$target %in% ATT$Nodes,]
+  }
 
   formatted_res <- list(SIF,ATT)