# NOT RUN {
# generate graph
nodes <- sg_make_nodes(20)
edges <- sg_make_edges(nodes, 35)
sigmajs() %>%
sg_nodes(nodes, id, label, size) %>%
sg_edges(edges, id, source, target) %>%
sg_drag_nodes()
# }
# NOT RUN {
# proxies
demo("drag-nodes", package = "sigmajs")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab