if (FALSE) {
nodes <- data.frame(id = 1:3, title = paste0("", 1:3," tooltip"))
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges) %>%
visConfigure(enabled = TRUE, filter = "interaction")
# using visNetworkEditor
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