## Not run:
# # Create three graphs (using \code{pipeR} for speed)
# # and create a graph series using those graphs
# library(pipeR)
#
# graph_1 <- create_graph() %>%
# add_node("a") %>% add_node("b") %>% add_node("c") %>%
# add_edge("a", "c") %>% add_edge("a", "b") %>% add_edge("b", "c")
#
# graph_2 <- graph_1 %>%
# add_node("d") %>% add_edge("d", "c")
#
# graph_3 <- graph_2 %>%
# add_node("e") %>% add_edge("e", "b")
#
# # Create an empty graph series
# series <- create_series(series_type = "sequential")
#
# # Add graphs to the graph series
# series <- graph_1 %>>% add_to_series(series)
# series <- graph_2 %>>% add_to_series(series)
# series <- graph_3 %>>% add_to_series(series)
#
# # Get information on the graphs in the series
# series_info(series)
# #> graph name date_time tz nodes edges directed
# #> 1 1 <NA> <NA> <NA> 3 3 TRUE
# #> 2 2 <NA> <NA> <NA> 4 4 TRUE
# #> 3 3 <NA> <NA> <NA> 5 5 TRUE
# ## End(Not run)
Run the code above in your browser using DataLab