# NOT RUN {
# Create a DiagrammeR graph object
dgr_graph_orig <-
create_random_graph(
36, 50, set_seed = 1,
directed = TRUE)
# Convert the DiagrammeR graph to an
# igraph object
ig_graph <- to_igraph(dgr_graph_orig)
# Convert the igraph graph back to a
# DiagrammeR graph
dgr_graph_new <- from_igraph(ig_graph)
# }
Run the code above in your browser using DataLab