# NOT RUN {
# Set a seed
set.seed(23)
# Create a graph with 10 nodes and 9 edges
graph <-
  create_graph() %>%
  add_n_nodes(n = 10) %>%
  set_node_attrs(
    node_attr = value,
    values = rnorm(node_count(.), 5, 2)) %>%
  add_edges_w_string(
    edges =
      "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(
    node_attr = value,
    name = "node_value")
# Get the mean from all values available in
# the cache
graph %>%
  get_cache(name = "node_value") %>%
  mean()
#> [1] 5.766209
# }
Run the code above in your browser using DataLab