fix visOptions man

Author: bthieurmel

R/visOptions.R

@@ -63,7 +63,7 @@
 #' ##########################
 #' # nodesIdSelection
 #' ##########################
-#' 
+#'  
 #' visNetwork(nodes, edges) %>% 
 #'  visOptions(highlightNearest = TRUE, nodesIdSelection = TRUE)
 #'
@@ -90,7 +90,12 @@
 #' ##########################
 #' # selectedBy
 #' ##########################
-#' 
+#' 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)
+#'  
 #' visNetwork(nodes, edges) %>% 
 #'  visOptions(selectedBy = "group")
 #'