add some man on collapse

Author: bthieurmel

R/visOptions.R

@@ -102,6 +102,28 @@
 #'    outline:none;'))   
 #'  
 #' ##########################
+#' # collapse
+#' ##########################
+#'  
+#' nodes <- data.frame(id = 1:15, label = paste("Label", 1:15),
+#'  group = sample(LETTERS[1:3], 15, replace = TRUE))
+#'
+#' edges <- data.frame(from = trunc(runif(15)*(15-1))+1,
+#'  to = trunc(runif(15)*(15-1))+1)
+#'  
+#' # keeping all parent node attributes  
+#' visNetwork(nodes, edges) %>% visEdges(arrows = "to") %>%
+#'  visOptions(collapse = TRUE)
+#'
+#' # setting some properties  
+#' visNetwork(nodes, edges) %>% visEdges(arrows = "to") %>%
+#'  visOptions(collapse = list(enabled = TRUE, clusterOptions = list(shape = "square"))) 
+#'    
+#' # enable / disable open cluster (proxy only) : 
+#' # visEvents(type = "off", doubleClick = "networkOpenCluster")
+#' # visEvents(type = "on", doubleClick = "networkOpenCluster")  
+#'  
+#' ##########################
 #' # selectedBy
 #' ##########################
 #' nodes <- data.frame(id = 1:15, label = paste("Label", 1:15),