# Create a node data frame (ndf)
nodes <-
create_nodes(
nodes = c("a", "b", "c", "d"),
type = "letter")
# Create an edge data frame (edf)
edges <-
create_edges(
from = c("a", "b", "c"),
to = c("d", "c", "a"),
rel = "leading_to")
# Create a graph
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"
# Invert the selection
graph <- invert_selection(graph = graph)
# Verify that the node selection has been changed
get_selection(graph)
#> $nodes
#> [1] "b" "d"
Run the code above in your browser using DataLab