# NOT RUN {
data("lesmis_igraph")
layout <- igraph::layout_with_fr(lesmis_igraph)
sigmajs() %>%
sg_from_igraph(lesmis_igraph, layout) %>%
sg_settings(defaultNodeColor = "#000")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab