# 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
graph %>%
  is_graph_connected()
# Get the graph's weakly-connected
# components
graph %>%
  get_w_connected_cmpts()
# }
Run the code above in your browser using DataLab