# NOT RUN {
# Create a node data frame (ndf)
ndf <-
create_node_df(
n = 4,
type = "basic",
label = TRUE)
# Create an edge data frame (edf)
edf <-
create_edge_df(
from = c(1, 4, 2, 3, 3),
to = c(4, 1, 3, 2, 1))
# Create a graph with the ndf and edf
graph <-
create_graph(
nodes_df = ndf,
edges_df = edf)
# Explicitly select the edges `1`->`4`
# and `2`->`3`
graph <-
graph %>%
select_edges(from = 1, to = 4) %>%
select_edges(from = 2, to = 3)
# Add to the selection the reverse edge
# (`4`->`1`)
graph <-
graph %>%
select_rev_edges_ws()
# Get the current selection of edges
get_selection(graph)
#> [1] 1 2 3 4
# }
Run the code above in your browser using DataLab