DiagrammeR Graphviz graph moving left to right (`rankdir`!)

diagrammer-left-to-right.R

devtools::install_github("rich-iannone/DiagrammeR")
library(DiagrammeR)
library(magrittr)

# Create a graph
graph <-
  create_graph() %>%
  set_global_graph_attr("graph", "rankdir", "LR") %>%
  add_node("A") %>% add_node("B") %>% add_node("C") %>%
  add_node("D") %>% add_node("E") %>% add_node("F") %>%
  add_node("1") %>% add_node("2") %>% add_node("3") %>%
  add_node("4") %>% add_node("5") %>% add_node("6") %>%
  add_node("7") %>% add_node("8") %>%
  add_edge("A", "1") %>%
  add_edge("B", "2") %>%
  add_edge("B", "3") %>%
  add_edge("B", "4") %>%
  add_edge("C", "A") %>%
  add_edge("1", "D") %>%
  add_edge("E", "A") %>%
  add_edge("2", "4") %>%
  add_edge("1", "5") %>%
  add_edge("1", "F") %>%
  add_edge("E", "6") %>%
  add_edge("4", "6") %>%
  add_edge("5", "7") %>%
  add_edge("6", "7") %>%
  add_edge("3", "8")
    
render_graph(graph)