# NOT RUN {
# Create a graph with 2 cycles
graph <-
create_graph() %>%
add_cycle(n = 4) %>%
add_cycle(n = 3)
# Check if the graph is connected
is_graph_connected(graph)
#> [1] FALSE
# Get the graph's weakly-connected
# components
get_w_connected_cmpts(graph)
#> id wc_component
#> 1 1 1
#> 2 2 1
#> 3 3 1
#> 4 4 1
#> 5 5 2
#> 6 6 2
#> 7 7 2
# }
Run the code above in your browser using DataLab