# Create a simple graph
nodes <-
  create_nodes(
    nodes = c("a", "b", "c", "d"),
    type = "letter",
    label = TRUE,
    value = c(3.5, 2.6, 9.4, 2.7))
edges <-
  create_edges(
    from = c("a", "b", "c"),
    to = c("d", "c", "a"),
    rel = "leading_to")
graph <-
  create_graph(
    nodes_df = nodes,
    edges_df = edges)
# Select nodes "a" and "c"
graph <-
  select_nodes(
    graph = graph,
    nodes = c("a", "c"))
# Verify that a node selection has been made
get_selection(graph)
#> $nodes
#> [1] "a" "c"
# Clear the selection with `clear_selection()`
graph <- clear_selection(graph = graph)
# Verify that the node selection has been cleared
get_selection(graph)
#> [1] NA
Run the code above in your browser using DataLab