# NOT RUN {
nodes <- sg_make_nodes()
edges <- sg_make_edges(nodes)
edges$type <- "arrow" # directed
sigmajs() %>%
sg_nodes(nodes, id, label, size, color) %>%
sg_edges(edges, id, source, target, type)
# }
Run the code above in your browser using DataCamp Workspace