if (FALSE) {
nodes <- data.frame(id = 1:3, label = paste("Node", 1:3))
edges <- data.frame(from = c(1,2), to = c(1,3), label = paste("Edge", 1:2))
network <- visNetwork(nodes, edges)
custom_network <- visNetworkEditor(object = network)
custom_network
custom_network <- visNetworkEditor(object = network, filter = "nodes,edges")
custom_network
}
Run the code above in your browser using DataLab