-
Notifications
You must be signed in to change notification settings - Fork 125
/
Copy pathvisInteraction.R
140 lines (137 loc) · 7.99 KB
/
visInteraction.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
#' Network visualization interaction
#'
#' Network visualization interaction. For full documentation, have a look at \link{visDocumentation}.
#'
#'@param graph : a visNetwork object
#'@param dragNodes : Boolean. Default to true. When true, the nodes that are not fixed can be dragged by the user.
#'@param dragView : Boolean. Default to true. When true, the view can be dragged around by the user.
#'@param hideEdgesOnDrag : Boolean. Default to false. When true, the edges are not drawn when dragging the view. This can greatly speed up responsiveness on dragging, improving user experience.
#'@param hideEdgesOnZoom : Boolean. Default to false. When true, the edges are not drawn when zooming the view. This can greatly speed up responsiveness on zooming, improving user experience.
#'@param hideNodesOnDrag : Boolean. Default to false. When true, the nodes are not drawn when dragging the view. This can greatly speed up responsiveness on dragging, improving user experience.
#'@param hover : Boolean. Default to false. When true, the nodes use their hover colors when the mouse moves over them.
#'@param hoverConnectedEdges : Boolean. Default to true. When true, on hovering over a node, it's connecting edges are highlighted.
#'@param keyboard : Just a Boolean, or a named list. When true, the keyboard shortcuts are enabled with the default settings. For further customization, you can supply an object.
#'\itemize{
#' \item{"enabled"}{ : Boolean. Default to false. Toggle the usage of the keyboard shortcuts. If this option is not defined, it is set to true if any of the properties in this object are defined.}
#' \item{"speed"}{ : a named list
#' \itemize{
#' \item{"x"}{ : Number. Default to 1. This defines the speed of the camera movement in the x direction when using the keyboard navigation.}
#' \item{"y"}{ : Number. Default to 1. This defines the speed of the camera movement in the y direction when using the keyboard navigation.}
#' \item{"zoom"}{ : Number. Default to 0.02. This defines the zoomspeed when using the keyboard navigation.Number 0.02 This defines the zoomspeed when using the keyboard navigation.}
#' }
#' }
#' \item{"bindToWindow"}{ : Boolean. Default to true. If this is true, global keyboard events will be used. If it is false, the keyboard events are only used when the network is active. It is activated on mouseOver automatically.}
#'}
#'@param multiselect : Boolean. Default to false. When true, a longheld click (or touch) as well as a control-click will add to the selection.
#'@param navigationButtons : Boolean. Default to false. When true, navigation buttons are drawn on the network canvas. These are HTML buttons and can be completely customized using CSS.
#'@param selectable : Boolean. Default to true When true, the nodes and edges can be selected by the user.
#'@param selectConnectedEdges : Boolean. Default to true. When true, on selecting a node, its connecting edges are highlighted.
#'@param tooltipDelay : Number. Default to 300. When nodes or edges have a defined 'title' field, this can be shown as a pop-up tooltip. The tooltip itself is an HTML element that can be fully styled using CSS. The delay is the amount of time in milliseconds it takes before the tooltip is shown.
#'@param tooltipStay : Number. Default to 300. This is the amount of time in milliseconds it takes before the tooltip is hidden.
#'@param tooltipStyle : Character. HTML style of tooltip. You must use 'position: fixed;visibility:hidden;'.
#'@param zoomView : Boolean. Default to true. When true, the user can zoom in.
#'@param zoomSpeed : Number. Default to 1. How fast/rough or slow/precise zooming is.
#'
#'@seealso \link{visNodes} for nodes options, \link{visEdges} for edges options, \link{visGroups} for groups options,
#'\link{visLegend} for adding legend, \link{visOptions} for custom option, \link{visLayout} & \link{visHierarchicalLayout} for layout,
#'\link{visPhysics} for control physics, \link{visInteraction} for interaction, \link{visNetworkProxy} & \link{visFocus} & \link{visFit} for animation within shiny,
#'\link{visDocumentation}, \link{visEvents}, \link{visConfigure} ...
#'
#' @examples
#'
#'nodes <- data.frame(id = 1:10,
#' title = '<a target="_blank" href="https://github.com/datastorm-open/visNetwork">github</a>')
#'edges <- data.frame(from = round(runif(8)*10), to = round(runif(8)*10))
#'
#'# custom tooltip
#'
#'# default value : 'position: fixed;visibility:hidden;padding: 5px;font-family: verdana;
#'# font-size:14px;font-color:#000000;background-color: #f5f4ed;-moz-border-radius: 3px;*
#'# -webkit-border-radius: 3px;border-radius: 3px; border: 1px solid #808074;
#'# box-shadow: 3px 3px 10px rgba(0, 0, 0, 0.2);max-width:400px;word-break: break-all'
#'
#'visNetwork(nodes, edges) %>%
#' visInteraction(tooltipStyle = 'position: fixed;visibility:hidden;padding: 5px;white-space: nowrap;
#' font-family: cursive;font-size:18px;font-color:purple;background-color: red;')
#'
#' nodes <- data.frame(id = 1:3)
#' edges <- data.frame(from = c(1,2), to = c(1,3))
#'
#'# 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)
#'
#'@export
#'@references See online documentation \url{https://datastorm-open.github.io/visNetwork/}
visInteraction <- function(graph,
dragNodes = NULL,
dragView = NULL,
hideEdgesOnDrag = NULL,
hideEdgesOnZoom = NULL,
hideNodesOnDrag = NULL,
hover = NULL,
hoverConnectedEdges = NULL,
keyboard = NULL,
multiselect = NULL,
navigationButtons = NULL,
selectable = NULL,
selectConnectedEdges = NULL,
tooltipDelay = NULL,
tooltipStay = 300,
tooltipStyle = NULL,
zoomView = NULL,
zoomSpeed = 1){
if(!any(class(graph) %in% c("visNetwork", "visNetwork_Proxy"))){
stop("graph must be a visNetwork or a visNetworkProxy object")
}
interaction <- list()
interaction$dragNodes <- dragNodes
interaction$dragView <- dragView
interaction$hideEdgesOnDrag <- hideEdgesOnDrag
interaction$hideEdgesOnZoom <- hideEdgesOnZoom
interaction$hideNodesOnDrag <- hideNodesOnDrag
interaction$hover <- hover
interaction$hoverConnectedEdges <- hoverConnectedEdges
interaction$keyboard <- keyboard
interaction$multiselect <- multiselect
interaction$navigationButtons <- navigationButtons
interaction$selectable <- selectable
interaction$selectConnectedEdges <- selectConnectedEdges
interaction$tooltipDelay <- tooltipDelay
interaction$zoomView <-zoomView
interaction$zoomSpeed <- zoomSpeed
if(any(class(graph) %in% "visNetwork_Proxy")){
options <- list(interaction = interaction)
data <- list(id = graph$id, options = options)
graph$session$sendCustomMessage("visShinyOptions",data)
}else{
if(length(interaction) > 0){
graph$x$options$interaction <- mergeLists(graph$x$options$interaction, interaction)
}
if(is.null(tooltipStyle)){
tooltipStyle <- 'position: fixed;visibility:hidden;padding: 5px;white-space: nowrap;font-family: verdana;font-size:14px;font-color:#000000;background-color: #f5f4ed;-moz-border-radius: 3px;-webkit-border-radius: 3px;border-radius: 3px;border: 1px solid #808074;box-shadow: 3px 3px 10px rgba(0, 0, 0, 0.2);'
}
x <- list(tooltipStay = tooltipStay, tooltipStyle = tooltipStyle)
graph$x <- mergeLists(graph$x, x)
}
graph
}