if (FALSE) {
# Create three graphs
graph_1 <-
create_graph() %>%
add_path(n = 4)
graph_2 <-
create_graph() %>%
add_cycle(n = 5)
graph_3 <-
create_graph() %>%
add_star(n = 6)
# Create an empty graph series
# and add the graphs
series <-
create_graph_series() %>%
add_graph_to_graph_series(
graph = graph_1) %>%
add_graph_to_graph_series(
graph = graph_2) %>%
add_graph_to_graph_series(
graph = graph_3)
# View the second graph in
# the series in the Viewer
render_graph_from_graph_series(
graph_series = series,
graph_no = 2)
}
Run the code above in your browser using DataLab