add some man on collapse

datastorm-open · Jun 26, 2017 · cbef604 · cbef604
1 parent e3731de
commit cbef604
Show file tree

Hide file tree

Showing 2 changed files with 44 additions and 0 deletions.
diff --git a/R/visOptions.R b/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),

diff --git a/man/visOptions.Rd b/man/visOptions.Rd