if (FALSE) {
nodes <- data.frame(id = 1:3, group = c("B", "A", "B"))
edges <- data.frame(from = c(1,2), to = c(2,3))
network <- visNetwork(nodes, edges)
network
network %>% visSave(file = "network.html", background = "black")
# same as
visSave(network, file = "network.html", background = "black")
}
Run the code above in your browser using DataLab