process_reaction to work with the ordinal pathways

noriakis · Nov 9, 2023 · 1f18743 · 1f18743
1 parent a40060d
commit 1f18743
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/pathway_functions.R b/R/pathway_functions.R
@@ -366,6 +366,7 @@ process_reaction <- function(g, single_edge=FALSE) {
     ## Obtain raw edges
     eds <- g |> activate("edges") |> data.frame()
     reacs <- eds$reaction |> unique()
+    reacs <- reacs[!is.na(reacs)]
 
     ## Prepare new edges
     new_eds <- lapply(seq_along(reacs), function(i) {