nodes <- data.frame(id = 1:10)
edges <- data.frame(from = round(runif(8)*10), to = round(runif(8)*10))
#frozen network
visNetwork(nodes, edges) %>%
visInteraction(dragNodes = FALSE, dragView = FALSE, zoomView = FALSE)
visNetwork(nodes, edges) %>%
visInteraction(hideEdgesOnDrag = TRUE)
visNetwork(nodes, edges) %>%
visInteraction(hover = TRUE)
#navigation button
visNetwork(nodes, edges) %>%
visInteraction(navigationButtons = TRUE)
visNetwork(nodes, edges) %>%
visInteraction(selectConnectedEdges = FALSE)
visNetwork(nodes, edges) %>%
visInteraction(multiselect = TRUE)
visNetwork(nodes, edges) %>%
visInteraction(keyboard = TRUE)
Run the code above in your browser using DataLab