Creating flowchart with DiagrammeR nodes and edges instead of graphviz

[technocrat]

%>% render_graph(layout = "tree")

will get you closer