## Not run:
# # Create a simple edge data frame and view results
# edges <-
# create_edges(from = c("a", "b", "c"),
# to = c("d", "c", "a"),
# rel = "leading_to")
#
# render_graph(create_graph(edges_df = edges),
# output = "visNetwork")
#
# # Create an edge data frame with additional parameters
# edges <-
# create_edges(from = c("a", "b", "c"),
# to = c("d", "c", "a"),
# rel = "leading_to",
# length = c(50, 100, 250),
# color = "green",
# width = c(1, 1, 2))
#
# render_graph(create_graph(edges_df = edges),
# output = "visNetwork")
# ## End(Not run)
Run the code above in your browser using DataLab