# NOT RUN {
# Create a graph
graph <-
create_graph() %>%
add_n_nodes(3) %>%
add_edges_w_string(
"1->3 1->2 2->3")
# Select edges attached to node with ID `3`
# (these are `1`->`3` and `2`->`3`)
graph <-
graph %>%
select_edges_by_node_id(3)
# Delete edges in selection
graph <-
graph %>%
delete_edges_ws()
# Get a count of edges in the graph
edge_count(graph)
#> [1] 1
# }
Run the code above in your browser using DataLab