## Not run:
# # Before getting counts of edges, create a simple graph
# nodes <-
# create_nodes(nodes = LETTERS,
# label = TRUE,
# type = c(rep("a_to_g", 7),
# rep("h_to_p", 9),
# rep("q_to_x", 8),
# rep("y_and_z", 2)))
#
# edges <-
# create_edges(from = sample(LETTERS, replace = TRUE),
# to = sample(LETTERS, replace = TRUE),
# rel = c(rep("rel_a", 7),
# rep("rel_b", 9),
# rep("rel_c", 8),
# rep("rel_d", 2)))
#
# graph <-
# create_graph(nodes_df = nodes,
# edges_df = edges,
# graph_attrs = "layout = neato",
# node_attrs = c("fontname = Helvetica",
# "shape = circle"))
#
# # Get a total count of edges with no grouping
# edge_count(graph, rel = FALSE)
# #> [1] 26
#
# # Get a count of edge of one or more specified rels
# edge_count(graph, rel = "rel_a")
# #> [1] 7
#
# edge_count(graph, rel = c("rel_a", "rel_b"))
# #> [1] 16
# ## End(Not run)
Run the code above in your browser using DataLab