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