if (FALSE) {
# have a look to :
shiny::runApp(system.file("shiny", package = "visNetwork"))
# You can also disable / enabled the double-click event opening cluster
visNetworkProxy("network_id") %>% visEvents(type = "off", doubleClick = "networkOpenCluster")
visNetworkProxy("network_id") %>% visEvents(type = "on", doubleClick = "networkOpenCluster")
}
Run the code above in your browser using DataLab