# 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"
Run the code above in your browser using DataLab