fixed bug in kegg

noriakis · Mar 22, 2024 · faccb68 · faccb68
1 parent 8ae1b44
commit faccb68
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plotKEGGPathway.R b/R/plotKEGGPathway.R
@@ -161,7 +161,7 @@ plotKEGGPathway <- function(stana, species, pathway_id,
         graphList <- list()
         for (pid in pathway_id) {
             g <- ggkegg::pathway(pid)
-            g <- g |> dplyr::mutate(Sum := ggkegg::node_numeric(lfcs[["Sum"]], name="name",how=kegg_name_match))
+            g <- g |> dplyr::mutate(Sum := ggkegg::node_numeric(lfcs[[sp]], name="name",how=kegg_name_match))
         }
         V(g)$space <- V(g)$width
         nds <- g |> tidygraph::activate("nodes") |> data.frame()