refactor(collapse-edges): Refactor how edges are collapsed to remove …

…clutter
Vitek-Lab · Oct 22, 2024 · 2ad3653 · 2ad3653
1 parent a2e77b9
commit 2ad3653
Showing 1 changed file with 12 additions and 5 deletions.
diff --git a/R/utils_getSubnetworkFromIndra.R b/R/utils_getSubnetworkFromIndra.R
@@ -48,8 +48,7 @@
     edge$evidence_list <- paste(
         "https://db.indra.bio/statements/from_agents?subject=",
         edge$source_id, "@HGNC&object=",
-        edge$target_id, "@HGNC&type=",
-        edge$data$stmt_type, "&format=html",
+        edge$target_id, "&format=html",
         sep = ""
     )
     edge$source_uniprot_id <- input[input$HgncId == edge$source_id, ]$Protein
@@ -69,18 +68,26 @@
     edgeToMetadataMapping <- hashmap()
 
     for (edge in res) {
-        key <- paste(edge$source_id, edge$target_id, edge$data$stmt_type,
-            sep = "_"
-        )
+        key <- paste(edge$source_id, edge$target_id, sep = "_")
         if (key %in% keys(edgeToMetadataMapping)) {
             edgeToMetadataMapping[[key]]$data$evidence_count <-
                 edgeToMetadataMapping[[key]]$data$evidence_count +
                 edge$data$evidence_count
+            edgeToMetadataMapping[[key]]$data$stmt_type <- c(
+                edgeToMetadataMapping[[key]]$data$stmt_type,
+                edge$data$stmt_type)
         } else {
             edge <- .addAdditionalMetadataToIndraEdge(edge, input)
             edgeToMetadataMapping[[key]] <- edge
         }
     }
+
+    for (key in keys(edgeToMetadataMapping)) {
+        edgeToMetadataMapping[[key]]$data$stmt_type <-
+            unique(edgeToMetadataMapping[[key]]$data$stmt_type)
+        edgeToMetadataMapping[[key]]$data$stmt_type <-
+            paste(edgeToMetadataMapping[[key]]$data$stmt_type, collapse = ", ")
+    }
 
     return(edgeToMetadataMapping)
 }