Improvements to algorithm for attaching key attribute for shiny's event data, fixes #1610

* Account for pointNumbers
* Do nothing if we don't recognize the case

Author: cpsievert

inst/htmlwidgets/plotly.js

@@ -17,6 +17,8 @@ HTMLWidgets.widget({
 
   renderValue: function(el, x, instance) {
 
+    console.log(instance);
+    
     /* 
     / 'inform the world' about highlighting options this is so other
     / crosstalk libraries have a chance to respond to special settings 
@@ -263,10 +265,13 @@ HTMLWidgets.widget({
         for (var i = 0; i < attrsToAttach.length; i++) {
           var attr = trace[attrsToAttach[i]];
           if (Array.isArray(attr)) {
-              // pointNumber can be an array (e.g., heatmaps)
-              // TODO: can pointNumber be 3D?
-              obj[attrsToAttach[i]] = typeof pt.pointNumber === "number" ? 
-                attr[pt.pointNumber] : attr[pt.pointNumber[0]][pt.pointNumber[1]];
+            var ptNums = pt.pointNumber || pt.pointNumbers;
+            if (typeof ptNums === "number") {
+              ptNums = [ptNums];
+            }
+            if (Array.isArray(ptNums)) {
+              obj[attrsToAttach[i]] = ptNums.map(function(i) { return attr[i]; });
+            }
           }
         }
         return obj;