johnburnmurdoch

	<!DOCTYPE html>
	<html>
	<head>
	<title>Ceci n'est pas un dropdown</title>
	<script src="https://cdnjs.cloudflare.com/ajax/libs/d3/3.5.5/d3.min.js"></script>
	<style media="screen">
	body{background-color:#fff1e0;font-size:16px;font-family:sans-serif;}
	#container{width:100%;height:100%;min-height:500px;}
	.ceci-nest-pas-un-dropdown{background-color:#e9decf;cursor:pointer;position:relative;font-size:14px;padding:1px 8px 3px 8px;border-radius:10px;border:1px solid #cec6b9;}
	.ceci-nest-pas-un-dropdown:hover{background-color:#cec6b9;}

	# The packages we'll be using
	packages <- c("rvest","dplyr","tidyr","pipeR","ggplot2","stringr","data.table")

	# From those packages, which ones are not yet installed?
	newPackages <- packages[!(packages %in% as.character(installed.packages()[,"Package"]))]

	# If any weren't already installed, install them now
	if(length(newPackages)) install.packages(newPackages)

	# Now make sure all necessary packages are loaded

	// https://github.com/1wheel/d3-jetpack-module Version 0.0.14. Copyright 2016 Adam Pearce.
	(function (global, factory) {
	typeof exports === 'object' && typeof module !== 'undefined' ? factory(exports, require('d3-selection'), require('d3-transition'), require('d3-axis'), require('d3-scale'), require('d3-collection'), require('d3-queue'), require('d3-request')) :
	typeof define === 'function' && define.amd ? define(['exports', 'd3-selection', 'd3-transition', 'd3-axis', 'd3-scale', 'd3-collection', 'd3-queue', 'd3-request'], factory) :
	(factory((global.d3 = global.d3 \|\| {}),global.d3,global.d3,global.d3,global.d3,global.d3,global.d3,global.d3));
	}(this, function (exports,d3Selection,d3Transition,d3Axis,d3Scale,d3Collection,d3Queue,d3Request) { 'use strict';

	function translateSelection(xy) {
	return this.attr('transform', function(d,i) {
	return 'translate('+[typeof xy == 'function' ? xy.call(this, d,i) : xy]+')';