# NOT RUN {
# Set a seed
set.seed(25)
# Create a graph with 10 nodes and 9 edges
graph <-
create_graph() %>%
add_n_nodes(10) %>%
set_node_attrs(
"value", rnorm(node_count(.), 5, 2)) %>%
add_edges_w_string(
"1->2 1->3 2->4 2->5 3->6
3->7 4->8 4->9 5->10")
# Cache all values from the node attribute `value`
# as a numeric vector
graph <-
graph %>%
cache_node_attrs("value", "numeric")
# Get the mean from all values available in
# the cache
graph %>% get_cache() %>% mean()
#> [1] 4.651246
# }
Run the code above in your browser using DataLab