# NOT RUN {
load_basic_example()
raw_graph <- dataframes_graph(my_plan)
str(raw_graph)
# Plot your own custom visNetwork graph
library(magrittr)
library(visNetwork)
visNetwork(nodes = raw_graph$nodes, edges = raw_graph$edges) %>%
visLegend(useGroups = FALSE, addNodes = raw_graph$legend_nodes) %>%
visHierarchicalLayout(direction = 'LR')
# }
Run the code above in your browser using DataLab