library(DiagrammeR)
create_graph() %>% add_node() %>% render_graph() # default DiagrammeR aesthetics
create_graph() %>% add_node() %>% setDirectedGraphTheme() %>% render_graph() ## causact aesthetics
Run the code above in your browser using DataLab