Experimental support for click-highlighting/brushing vertices and con…

…nected edges (issue #62)

Also preparing support for crosstalk (issue #65)

DESCRIPTION

@@ -17,7 +17,8 @@ URL: http://bwlewis.github.io/rthreejs
 BugReports: https://github.com/bwlewis/rthreejs/issues
 License: MIT + file LICENSE
 Depends:
-    R (>= 3.0.0), igraph (>= 1.0.0)
+    R (>= 3.0.0),
+    igraph (>= 1.0.0)
 Imports:
     htmlwidgets (>= 0.3.2),
     base64enc,
@@ -26,4 +27,4 @@ Suggests:
     htmltools (>= 0.2.6),
     maps
 Enhances: knitr, shiny
-RoxygenNote: 6.0.1
+RoxygenNote: 5.0.1

R/graph.R

@@ -81,6 +81,12 @@
 #' clicked, include list entries labeled \code{"1"} and \code{"5"}.
 #' See the demos in \code{demo(package="threejs")} for detailed examples.
 #'
+#' @section Other interactions:
+#' Specify the argument \code{brush=TRUE} to highlight a clicked vertex and
+#' its directly connected edges (click off of a vertex to reset the display).
+#' Optionally set the \code{highlight=<hex color>} and \code{lowlight=<hex color>}
+#' to manually control the brushing display colors.
+#'
 #' @note
 #' Edge transparency values specified as part of \code{edge.color} are ignored, however
 #' you can set an overall transparency for edges with \code{edge.alpha}.

inst/htmlwidgets/scatterplotThree.js

@@ -353,8 +353,10 @@ Widget.scatter = function(w, h)
       _this.brushed = null;
       return;
     }
-    var off = new THREE.Color("lightgray"); // XXX make option
+    var off = new THREE.Color("lightgray");
     var on = new THREE.Color("red");
+    if(_this.options.highlight) on = new THREE.Color(_this.options.highlight);
+    if(_this.options.lowlight) off = new THREE.Color(_this.options.lowlight);
     if(! Array.isArray(vertices)) vertices = [vertices]; // XXX why does this become a string?
     var k;
     for(var j = 0; j < _this.pointgroup.children.length; j++)