## Not run:
# library(magrittr)
#
# # Create a new graph and set some global attributes
# graph <- create_graph() %>%
# set_global_graph_attr("graph", "overlap", "true") %>%
# set_global_graph_attr("node", "fontname", "Helvetica") %>%
# set_global_graph_attr("edge", "color", "gray")
#
# # Verify that the global attributes have been set
# get_global_graph_attr(graph)
# #> $graph_attrs
# #> [1] "overlap = true"
# #>
# #> $node_attrs
# #> [1] "fontname = Helvetica"
# #>
# #> $edge_attrs
# #> [1] "color = gray"
# ## End(Not run)
Run the code above in your browser using DataLab