if (FALSE) {
# Create a new graph and add
# a path with several edge
# data attributes
graph <-
create_graph() %>%
add_path(
n = 3,
type = "path",
edge_data = edge_data(
hour = 5,
index = c(1, 2)))
# View the graph's internal
# edge data frame; the edge
# data attributes have
# been inserted
graph %>% get_edge_df()
}
Run the code above in your browser using DataLab