# NOT RUN {
# Create a random graph and
# remove two nodes from it
graph <-
create_random_graph(
n = 10, m = 22,
set_seed = 23) %>%
delete_node(node = 5) %>%
delete_node(node = 7)
# Get the graph log, which is a
# record of all graph transformations
graph %>%
get_graph_log()
#> # A tibble: 3 x 6
#> version_id function_used
#> <int> <chr>
#> 1 1 create_random_graph
#> 2 2 delete_node
#> 3 3 delete_node
#> # ... with 4 more variables:
#> # time_modified <dttm>,
#> # duration <dbl>, nodes <int>,
#> # edges <int>
# }
Run the code above in your browser using DataLab