visEdges(graph, title = NULL, value = NULL, label = NULL, length = NULL, width = NULL, dashes = NULL, hidden = NULL, hoverWidth = NULL, id = NULL, physics = NULL, selectionWidth = NULL, selfReferenceSize = NULL, labelHighlightBold = NULL, color = NULL, font = NULL, arrows = NULL, arrowStrikethrough = NULL, smooth = NULL, shadow = NULL, scaling = NULL)
nodes <- data.frame(id = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges) %>% visEdges(arrows = 'from')
visNetwork(nodes, edges) %>% visEdges(arrows = 'to, from')
visNetwork(nodes, edges) %>% visEdges(arrows =list(to = list(enabled = TRUE, scaleFactor = 2)))
visNetwork(nodes, edges) %>% visEdges(smooth = FALSE)
visNetwork(nodes, edges) %>% visEdges(smooth = list(enabled = TRUE, type = "diagonalCross"))
visNetwork(nodes, edges) %>% visEdges(width = 10)
visNetwork(nodes, edges) %>% visEdges(color = list(hover = "green")) %>%
visInteraction(hover = TRUE)
visNetwork(nodes, edges) %>% visEdges(color = "red")
visNetwork(nodes, edges) %>% visEdges(color = list(color = "red", highlight = "yellow"))
visNetwork(nodes, edges) %>% visEdges(shadow = TRUE)
visNetwork(nodes, edges) %>% visEdges(shadow = list(enabled = TRUE, size = 5))
## dashes control
nodes <- data.frame(id = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3))
# enabled globally
visNetwork(nodes, edges) %>% visEdges(dashes = TRUE)
# set configuration individualy
# have to use specific notation...
nodes <- data.frame(id = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3),
dashes = c("[10,10,2,2]", "false"))
visNetwork(nodes, edges)
edges <- data.frame(from = c(1,2), to = c(1,3),
dashes = c("[10,10,2,2]", "[2]"))
visNetwork(nodes, edges)
Run the code above in your browser using DataLab