# Create an empty graph, add 2 nodes
# to it, and create the edge `1->2`
graph <-
create_graph() %>%
add_n_nodes(
n = 2,
type = "type_a",
label = c("a_1", "a_2")) %>%
add_edge(
from = 1, to = 2, rel = "a")
# Get the graph's edges
graph %>% get_edge_ids()
# Select the edge and create 2
# additional edges with the same
# definition (`1->2`) but with
# different `rel` values (`b` and `c`)
graph <-
graph %>%
select_edges() %>%
add_forward_edges_ws(rel = "b") %>%
add_forward_edges_ws(rel = "c") %>%
clear_selection()
# Get the graph's edge data frame
graph %>% get_edge_df()
Run the code above in your browser using DataLab