# NOT RUN {
# Create a simple, directed graph with 5
# nodes and 4 edges
graph <-
create_graph() %>%
add_path(5)
# Find all neighbor nodes for node `2`
graph %>% get_nbrs(2)
#> [1] 1 3
# Find all neighbor nodes for nodes `1`
# and `5`
graph %>% get_nbrs(c(1, 5))
#> [1] 2 4
# Color node `3` with purple, get its
# neighbors and color those nodes green
graph <-
graph %>%
select_nodes_by_id(3) %>%
set_node_attrs_ws("color", "purple") %>%
clear_selection() %>%
select_nodes_by_id(get_nbrs(., 3)) %>%
set_node_attrs_ws("color", "green")
# }
Run the code above in your browser using DataLab