# NOT RUN {
# Create an empty graph
graph <- create_graph()
# Add three nodes to the graph
graph <-
graph %>%
add_n_nodes(3)
# Select the last node added
graph <-
graph %>%
select_last_node()
# Get the current selection
graph %>% get_selection()
#> [1] 3
# }
Run the code above in your browser using DataLab