## Not run:
# nnodes <- 200
# nnedges <- 400
#
# nodes <- data.frame(id = 1:nnodes)
# edges <- data.frame(from = sample(1:nnodes, nnedges, replace = T),
# to = sample(1:nnodes, nnedges, replace = T))
#
# # with defaut layout
# visNetwork(nodes, edges) %>%
# visIgraphLayout()
#
# # use full space
# visNetwork(nodes, edges) %>%
# visIgraphLayout(type = "full")
#
# # in circle ?
# visNetwork(nodes, edges) %>%
# visIgraphLayout(layout = "layout_in_circle") %>%
# visOptions(highlightNearest = list(enabled = T, hover = T),
# nodesIdSelection = T)
#
# # keep physics with smooth curves ?
# visNetwork(nodes, edges) %>%
# visIgraphLayout(physics = TRUE, smooth = TRUE)
#
# # fix radomSeed to keep position
# visNetwork(nodes, edges) %>%
# visIgraphLayout(randomSeed = 123)
#
# visNetwork(nodes, edges) %>%
# visIgraphLayout(randomSeed = 123)
# ## End(Not run)
Run the code above in your browser using DataLab