library(magrittr)
# Create an empty graph
graph <- create_graph()
# Add three nodes to the 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 %<>% select_last_edge
# Get the current selection
graph %>% get_selection
#> $edges
#> $edges$from
#> [1] "2"
#>
#> $edges$to
#> [1] "3"
Run the code above in your browser using DataLab