# NOT RUN {
# Create a graph containing a balanced tree
graph <-
create_graph() %>%
add_balanced_tree(
k = 2, h = 2)
# Create a graph selection by selecting nodes
# in the neighborhood of node `1`, where the
# neighborhood is limited by nodes that are 1
# connection away from node `1`
graph <-
graph %>%
select_nodes_in_neighborhood(
node = 1,
distance = 1)
# Get the selection of nodes
graph %>%
get_selection()
#> [1] 1 2 3
# Perform another selection of nodes, this time
# with a neighborhood spanning 2 nodes from node `1`
graph <-
graph %>%
clear_selection() %>%
select_nodes_in_neighborhood(
node = 1,
distance = 2)
# Get the selection of nodes
graph %>%
get_selection()
#> [1] 1 2 3 4 5 6 7
# }
Run the code above in your browser using DataLab