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