library(magrittr)
# Create a simple graph
graph <-
create_graph() %>%
add_node_df(create_nodes(1:6)) %>%
add_edge("1", "2") %>% add_edge("1", "3") %>%
add_edge("3", "4") %>% add_edge("4", "5") %>%
add_edge("4", "6")
# Select node "4", select all nodes a distance of 1 away from "4",
# and return the selection of nodes as a list object
graph %>% select_nodes(nodes = "4") %>%
select_nodes_in_neighborhood(node = "4", distance = 1) %>%
get_selection()
#> $nodes
#> [1] "4" "5" "6" "3"
Run the code above in your browser using DataLab