updated conversion to bipartite, it was very very wrong before

R/create_bipartite_graph.R

@@ -24,7 +24,7 @@ create_bipartite_graph <- function(map_components) {
 
   ### Create a bipartite graph for each diagram - edges and vertices,
   ## then create an igraph object for each of them
-  map_g_l <- purrr::map2(map_components$map_reactions, map_components$map_elements, create_bipartite_diagram_df) %>%
+  map_g_l <- purrr::map2(map_components$map_reactions, map_components$map_elements, create_bipartite_diagram) %>%
     purrr::map(~ igraph::graph.data.frame(.$interactions, directed = TRUE, vertices = .$elements))
   names(map_g_l) <- map_components$models$idObject
   return(map_g_l)