Prints the interactions in the path in a nice format.
Examples
interactions <- omnipath(resources = "SignaLink3")
OPI_g <- interaction_graph(interactions = interactions)
print_path_vs(
igraph::all_shortest_paths(
OPI_g,
from = 'TYRO3',
to = 'STAT3'
)$vpath,
OPI_g
)
#> Empty path
enzsub <- enzyme_substrate(resources=c("PhosphoSite", "SIGNOR"))
enzsub_g <- enzsub_graph(enzsub)
print_path_vs(
igraph::all_shortest_paths(
enzsub_g,
from = 'SRC',
to = 'STAT1'
)$res,
enzsub_g
)
#> Pathway 1: SRC -> STAT1