library(magrittr)
# Create a simple graph where edges have an edge
# attribute named `value`
graph <-
create_graph() %>%
add_n_nodes(4) %>%
{
edges <-
create_edges(
from = c(1, 2, 1, 4),
to = c(2, 3, 4, 3),
rel = "rel")
add_edge_df(., edges)
} %>%
set_edge_attrs(
"value", 1.6, 1, 2) %>%
set_edge_attrs(
"value", 4.3, 1, 4) %>%
set_edge_attrs(
"value", 2.9, 2, 3) %>%
set_edge_attrs(
"value", 8.4, 4, 3)
# Get the values for the `value` edge attribute
graph %>% get_edge_attrs(edge_attr = "value")
#> 1 -> 2 2 -> 3 1 -> 4 4 -> 3
#> 1.6 2.9 4.3 8.4
# To only return edge attribute values for specified
# edges, use the `from` and `to` arguments
graph %>% get_edge_attrs("value", c(1, 2), c(2, 3))
#> 1 -> 2 2 -> 3
#> 1.6 2.9
Run the code above in your browser using DataLab