# NOT RUN {
# Create a random graph and make every node
# shape a `square`
graph <-
create_random_graph(
n = 30, m = 50,
set_seed = 23) %>%
set_node_attrs(
node_attr = "shape",
values = "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] 9 10 12 19 22 26 30
# For the articulation points, change the node
# shape to a `circle`
graph <-
graph %>%
select_nodes_by_id(
nodes = get_articulation_points(.)) %>%
set_node_attrs_ws(
node_attr = "shape",
value = "circle")
# }
Run the code above in your browser using DataLab