var imageOutputBinding = new OutputBinding(); $.extend(imageOutputBinding, { find: function(scope) { return $(scope).find('.shiny-image-output, .shiny-plot-output'); }, renderValue: function(el, data) { // The overall strategy: // * Clear out existing image and event handlers. // * Create new image. // * Create various event handlers. // * Bind those event handlers to events. // * Insert the new image. var $el = $(el); // Load the image before emptying, to minimize flicker var img = null; // Remove event handlers that were added in previous renderValue() $el.off('.image_output'); // Trigger custom 'remove' event for any existing images in the div $el.find('img').trigger('remove'); if (!data) { $el.empty(); return; } var opts = { clickId: $el.data('click-id'), clickClip: strToBool($el.data('click-clip')) || true, dblclickId: $el.data('dblclick-id'), dblclickClip: strToBool($el.data('dblclick-clip')) || true, dblclickDelay: $el.data('dblclick-delay') || 400, hoverId: $el.data('hover-id'), hoverClip: $el.data('hover-clip') || true, hoverDelayType: $el.data('hover-delay-type') || 'debounce', hoverDelay: $el.data('hover-delay') || 300, brushId: $el.data('brush-id'), brushClip: strToBool($el.data('brush-clip')) || true, brushDelayType: $el.data('brush-delay-type') || 'debounce', brushDelay: $el.data('brush-delay') || 300, brushFill: $el.data('brush-fill') || '#666', brushStroke: $el.data('brush-stroke') || '#000', brushOpacity: $el.data('brush-opacity') || 0.3, brushDirection: $el.data('brush-direction') || 'xy', brushResetOnNew: strToBool($el.data('brush-reset-on-new')) || false, coordmap: data.coordmap }; img = document.createElement('img'); // Copy items from data to img. This should include 'src' $.each(data, function(key, value) { if (value !== null) img[key] = value; }); var $img = $(img); // Create object that handles mapping coordinates to data space, and which // sends coordinates to the server. var mapper = imageutils.createCoordMapper($el, opts.coordmap); // This object listens for mousedowns, and triggers mousedown2 and dblclick2 // events as appropriate. var clickInfo = imageutils.createClickInfo($el, opts.dblclickId, opts.dblclickDelay); $el.on('mousedown.image_output', clickInfo.mousedown); if (browser.isIE && browser.IEVersion === 8) { $el.on('dblclick.image_output', clickInfo.dblclickIE8); } // ---------------------------------------------------------- // Register the various event handlers // ---------------------------------------------------------- if (opts.clickId) { var clickHandler = imageutils.createClickHandler(opts.clickId, opts, mapper); $el.on('mousedown2.image_output', clickHandler.mousedown); // When img is removed, do housekeeping: clear $el's mouse listener and // call the handler's onRemoveImg callback. $img.on('remove', clickHandler.onRemoveImg); } if (opts.dblclickId) { // We'll use the clickHandler's mousedown function, but register it to // our custom 'dblclick2' event. var dblclickHandler = imageutils.createClickHandler(opts.dblclickId, opts, mapper); $el.on('dblclick2.image_output', dblclickHandler.mousedown); $img.on('remove', dblclickHandler.onRemoveImg); } if (opts.hoverId) { var hoverHandler = imageutils.createHoverHandler(opts.hoverId, opts, mapper); $el.on('mousemove.image_output', hoverHandler.mousemove); $img.on('remove', hoverHandler.onRemoveImg); } if (opts.brushId) { // Make image non-draggable (Chrome, Safari) $img.css('-webkit-user-drag', 'none'); // Firefox, IE<=10 $img.on('dragstart', function() { return false; }); // Disable selection of image and text when dragging in IE<=10 $el.on('selectstart.image_output', function() { return false; }); var brushHandler = imageutils.createBrushHandler(opts.brushId, $el, opts, mapper); $el.on('mousedown.image_output', brushHandler.mousedown); $el.on('mousemove.image_output', brushHandler.mousemove); $img.on('remove', brushHandler.onRemoveImg); } if (opts.clickId || opts.dblclickId || opts.hoverId || opts.brushId) { $el.addClass('crosshair'); } // Remove all elements except brush, usually image plus error messages. // These extra contortions are needed to select the bare text of error // message. $el.contents().filter(function() { return this.id !== el.id + '_brush'; }).remove(); if (img) $el.append(img); } }); outputBindings.register(imageOutputBinding, 'shiny.imageOutput'); var imageutils = {}; // This object handles various coordinate-mapping tasks, and sends information // to the server. imageutils.createCoordMapper = function($el, coordmap) { var el = $el[0]; // Firefox doesn't have offsetX/Y, so we need to use an alternate // method of calculation for it. Even though other browsers do have // offsetX/Y, we need to calculate relative to $el, because sometimes the // mouse event can come with offset relative to other elements on the // page. This happens when the event listener is bound to, say, window. function mouseOffset(mouseEvent) { var offset = $el.offset(); return { x: mouseEvent.pageX - offset.left, y: mouseEvent.pageY - offset.top }; } // Given two sets of x/y coordinates, return an object representing the // min and max x and y values. (This could be generalized to any number // of points). function findBox(offset1, offset2) { return { xmin: Math.min(offset1.x, offset2.x), xmax: Math.max(offset1.x, offset2.x), ymin: Math.min(offset1.y, offset2.y), ymax: Math.max(offset1.y, offset2.y) }; } function _pxToData(px, domainMin, domainMax, rangeMin, rangeMax, clip) { var val = px - rangeMin; var factor = (domainMax - domainMin) / (rangeMax - rangeMin); var newval = (val * factor) + domainMin; if (clip) { var max = Math.max(domainMax, domainMin); var min = Math.min(domainMax, domainMin); if (newval > max) newval = max; else if (newval < min) newval = min; } return newval; } // Transform offset coordinates to data space coordinates function scale(offset, clip) { // By default, clip to plotting region clip = clip || true; if (!coordmap) return offset; var d = coordmap.domain; var r = coordmap.range; var userX = _pxToData(offset.x, d.left, d.right, r.left, r.right, clip); var userY = _pxToData(offset.y, d.bottom, d.top, r.bottom, r.top, clip); if (coordmap.log.x) userX = Math.pow(coordmap.log.x, userX); if (coordmap.log.y) userY = Math.pow(coordmap.log.x, userY); return { x: userX, y: userY }; } // Get the pixel bounds of the coordmap; if there's no coordmap, return // the bounds of the image. function getPlotBounds() { if (coordmap) { return coordmap.range; } else { return { top: 0, left: 0, right: el.clientWidth - 1, bottom: el.clientHeight - 1 }; } } // Is an offset in the plotting region? If supplied, `expand` tells us to // expand the region by that many pixels in all directions. function isInPlottingRegion(offset, expand) { expand = expand || 0; var bounds = getPlotBounds(); return offset.x < bounds.right + expand && offset.x > bounds.left - expand && offset.y < bounds.bottom + expand && offset.y > bounds.top - expand; } // Given an offset, clip it to the plotting region as specified by // coordmap. If there is no coordmap, clip it to bounds of the DOM // element. function clipToPlottingRegion(offset) { var bounds = getPlotBounds(); var newOffset = { x: offset.x, y: offset.y }; if (offset.x > bounds.right) newOffset.x = bounds.right; else if (offset.x < bounds.left) newOffset.x = bounds.left; if (offset.y > bounds.bottom) newOffset.y = bounds.bottom; else if (offset.y < bounds.top) newOffset.y = bounds.top; return newOffset; } // Returns a function that sends mouse coordinates, scaled to data space. // If that function is passed a null event, it will send null. function mouseCoordinateSender(inputId, clip) { clip = clip || true; return function(e) { if (e === null) { exports.onInputChange(inputId, null); return; } var offset = mouseOffset(e); // Ignore events outside of plotting region if (clip && !isInPlottingRegion(offset)) return; var coords = scale(offset); coords[".nonce"] = Math.random(); exports.onInputChange(inputId, coords); }; } return { mouseOffset: mouseOffset, findBox: findBox, scale: scale, getPlotBounds: getPlotBounds, isInPlottingRegion: isInPlottingRegion, clipToPlottingRegion: clipToPlottingRegion, mouseCoordinateSender: mouseCoordinateSender }; }; // This object provides two public event listeners: mousedown, and // dblclickIE8. // We need to make sure that, when the image is listening for double- // clicks, that a double-click doesn't trigger two click events. We'll // trigger custom mousedown2 and dblclick2 events with this mousedown // listener. imageutils.createClickInfo = function($el, dblclickId, dblclickDelay) { var clickCount = 0; var clickTimer = null; var pending_e = null; // A pending mousedown2 event // Create a new event of type eventType (like 'mousedown2'), and trigger // it with the information stored in this.e. function triggerEvent(newEventType, e) { // Extract important info from e and construct a new event with type // eventType. var e2 = $.Event(newEventType, { which: e.which, pageX: e.pageX, pageY: e.pageY, offsetX: e.offsetX, offsetY: e.offsetY }); $el.trigger(e2); } function triggerPendingMousedown2() { // It's possible that between the scheduling of a mousedown2 and the // time this callback is executed, someone else triggers a // mousedown2, so check for that. if (pending_e) { triggerEvent('mousedown2', pending_e); pending_e = null; } } // Set a timer to trigger a mousedown2 event, using information from the // last recorded mousdown event. function scheduleMousedown2(e) { pending_e = e; clickTimer = setTimeout(function() { triggerPendingMousedown2(); }, dblclickDelay); } function mousedown(e) { // Listen for left mouse button only if (e.which !== 1) return; // If no dblclick listener, immediately trigger a mousedown2 event. if (!dblclickId) { triggerEvent('mousedown2', e); return; } // If there's a dblclick listener, make sure not to count this as a // click on the first mousedown; we need to wait for the dblclick // delay before we can be sure this click was a single-click. if (pending_e === null) { scheduleMousedown2(e); } else { clearTimeout(clickTimer); // If second click is too far away, it doesn't count as a double // click. Instead, immediately trigger a mousedown2 for the previous // click, and set this click as a new first click. if (pending_e && Math.abs(pending_e.offsetX - e.offsetX) > 2 || Math.abs(pending_e.offsetY - e.offsetY) > 2) { triggerPendingMousedown2(); scheduleMousedown2(e); } else { // The second click was close to the first one. If it happened // within specified delay, trigger our custom 'dblclick2' event. pending_e = null; triggerEvent('dblclick2', e); } } } // IE8 needs a special hack because when you do a double-click it doesn't // trigger the click event twice - it directly triggers dblclick. function dblclickIE8(e) { e.which = 1; // In IE8, e.which is 0 instead of 1. ??? triggerEvent('dblclick2', e); } return { mousedown: mousedown, dblclickIE8: dblclickIE8 }; }; // ---------------------------------------------------------- // Handler creators for click, hover, brush. // Each of these returns an object with a few public members. These public // members are callbacks that are meant to be bound to events on $el with // the same name (like 'mousedown'). // ---------------------------------------------------------- imageutils.createClickHandler = function(inputId, opts, mapper) { var clickInfoSender = mapper.mouseCoordinateSender(inputId, opts.clickClip); return { mousedown: function(e) { // Listen for left mouse button only if (e.which !== 1) return; clickInfoSender(e); }, onRemoveImg: function() { clickInfoSender(null); } }; }; imageutils.createHoverHandler = function(inputId, opts, mapper) { var sendHoverInfo = mapper.mouseCoordinateSender(inputId, opts.hoverClip); var hoverInfoSender; if (opts.hoverDelayType === 'throttle') hoverInfoSender = new Throttler(null, sendHoverInfo, opts.hoverDelay); else hoverInfoSender = new Debouncer(null, sendHoverInfo, opts.hoverDelay); return { mousemove: function(e) { hoverInfoSender.normalCall(e); }, onRemoveImg: function() { hoverInfoSender.immediateCall(null); } }; }; // Returns a brush handler object. This has three public functions: // mousedown, mousemove, and onRemoveImg. imageutils.createBrushHandler = function(inputId, $el, opts, mapper) { // Parameter: expand the area in which a brush can be started, by this // many pixels in all directions. var expandPixels = 20; // Represents the state of the brush var brush = imageutils.createBrush($el, opts, mapper); // Shift an array of values so that they are within a min and max. // The vals will be shifted so that they maintain the same spacing // internally. If the range in vals is larger than the range of // min and max, the result might not make sense. function shiftToRange(vals, min, max) { if (!(vals instanceof Array)) vals = [vals]; var maxval = Math.max.apply(null, vals); var minval = Math.min.apply(null, vals); var shiftAmount = 0; if (maxval > max) { shiftAmount = max - maxval; } else if (minval < min) { shiftAmount = min - minval; } var newvals = []; for (var i=0; i= bounds.xmin && offset.y <= bounds.ymax && offset.y >= bounds.ymin; } // Sets the bounds of the brush, given a bounding box. This knows // whether we're brushing in the x, y, or xy directions and sets // bounds accordingly. function bounds(box) { if (box === undefined) return state.bounds; var plotBounds = mapper.getPlotBounds(); var min = { x: box.xmin, y: box.ymin }; var max = { x: box.xmax, y: box.ymax }; if (opts.brushClip) { min = mapper.clipToPlottingRegion(min); max = mapper.clipToPlottingRegion(max); } if (opts.brushDirection === 'xy') { // No change } else if (opts.brushDirection === 'x') { // Extend top and bottom of plotting area min.y = plotBounds.top; max.y = plotBounds.bottom; } else if (opts.brushDirection === 'y') { min.x = plotBounds.left; max.x = plotBounds.right; } state.bounds = { xmin: min.x, xmax: max.x, ymin: min.y, ymax: max.y }; } // Add a new div representing the brush. function addDiv() { if ($div) $div.remove(); $div = $(document.createElement('div')) .attr('id', el.id + '_brush') .css({ 'background-color': opts.brushFill, 'opacity': opts.brushOpacity, 'pointer-events': 'none', 'position': 'absolute' }); var borderStyle = '1px solid ' + opts.brushStroke; if (opts.brushDirection === 'xy') { $div.css({ 'border': borderStyle }); } else if (opts.brushDirection === 'x') { $div.css({ 'border-left': borderStyle, 'border-right': borderStyle }); } else if (opts.brushDirection === 'y') { $div.css({ 'border-top': borderStyle, 'border-bottom': borderStyle }); } $el.append($div); $div.offset({x:0, y:0}).width(0).height(0).show(); } // Update the brush div to reflect the current brush bounds. function updateDiv() { // Need parent offset relative to page to calculate mouse offset // relative to page. var imgOffset = $el.offset(); var b = state.bounds; $div.offset({ top: imgOffset.top + b.ymin, left: imgOffset.left + b.xmin }) .width(b.xmax - b.xmin) .height(b.ymax - b.ymin) .show(); } function down(offset) { if (offset === undefined) return state.down; state.down = offset; } function up(offset) { if (offset === undefined) return state.up; state.up = offset; } function isBrushing() { return state.brushing; } function startBrushing() { state.brushing = true; addDiv(); bounds(mapper.findBox(state.down, state.down)); updateDiv(); } function brushTo(offset) { bounds(mapper.findBox(state.down, offset)); updateDiv(); } function stopBrushing() { state.brushing = false; // Save the final bounding box of the brush bounds(mapper.findBox(state.down, state.up)); } function isDragging() { return state.dragging; } function startDragging() { state.dragging = true; state.dragStartBounds = $.extend({}, state.bounds); } function dragTo(offset) { // How far the brush was dragged var dx = offset.x - state.down.x; var dy = offset.y - state.down.y; // Calculate what new start/end positions would be, before clipping. var start = state.dragStartBounds; var newBounds = { xmin: start.xmin + dx, xmax: start.xmax + dx, ymin: start.ymin + dy, ymax: start.ymax + dy }; // Clip to the plotting area if (opts.brushClip) { var plotBounds = mapper.getPlotBounds(); // Convert to format for shiftToRange var xvals = [ newBounds.xmin, newBounds.xmax ]; var yvals = [ newBounds.ymin, newBounds.ymax ]; xvals = mapper.shiftToRange(xvals, plotBounds.left, plotBounds.right); yvals = mapper.shiftToRange(yvals, plotBounds.top, plotBounds.bottom); // Convert back to bounds format newBounds = { xmin: xvals[0], xmax: xvals[1], ymin: yvals[0], ymax: yvals[1] }; } bounds(newBounds); updateDiv(); } function stopDragging() { state.dragging = false; } return { reset: reset, importOldBrush: importOldBrush, isInsideBrush: isInsideBrush, bounds: bounds, down: down, up: up, isBrushing: isBrushing, startBrushing: startBrushing, brushTo: brushTo, stopBrushing: stopBrushing, isDragging: isDragging, startDragging: startDragging, dragTo: dragTo, stopDragging: stopDragging }; };