library(magrittr)
# Create a simple graph
graph <-
create_graph() %>%
add_n_nodes(4) %>%
add_edge(1, 2) %>%
add_edge(2, 3) %>%
add_edge(3, 4)
# Traverse from nodes `4` to to `1` by, in an
# alternating manner, moving from nodes onto edges,
# from edges onto nodes
graph <-
graph %>%
select_nodes_by_id(4) %>%
trav_in_edge %>%
trav_out_node %>%
trav_in_edge %>%
trav_out_node %>%
trav_in_edge %>%
trav_out_node
# Verify that the selection has been made by using
# the `get_selection()` function
get_selection(graph)
#> [1] "1"
Run the code above in your browser using DataLab