# NOT RUN {
# Create a random graph
graph <-
create_random_graph(
30, 50, set_seed = 1) %>%
set_node_attrs("shape", "square")
# Get the articulation points in the graph (i.e.,
# those nodes that if any were to be removed, the
# graph would become disconnected)
get_articulation_points(graph)
#> [1] 8 22 24
# For the articulation points, change the node
# shape to a circle
graph <-
graph %>%
select_nodes_by_id(
get_articulation_points(.)) %>%
set_node_attrs_ws("shape", "circle")
# }
Run the code above in your browser using DataLab