mbostock

Collections

each(array)

Underscore example:

_.each([1, 2, 3], function(num) { alert(num); });

dsparks

# Truly the most ridiculous thing I could think of.

doInstall <- TRUE  # Change to FALSE if you don't want packages installed.
toInstall <- c("XML", "png", "devtools", "RCurl")
if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

# Some helper functions, lineFinder and makeTable
source_gist("818983")
source_gist("818986")

dsparks

# .png with Windows GDI versus .png with cairographics

doInstall <- TRUE  # Change to FALSE if you don't want packages installed.
toInstall <- c("ggplot2", "RColorBrewer", "Cairo")
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

# Generate some data
nn <- 100
myData <- data.frame(X = rnorm(nn),

jeremywrowe

plotOptions: {
            line : {
              dataLabels : {
                enabled : true,
                formatter: function() {
                  var first = this.series.data[0],
                      last  = this.series.data[this.series.data.length - 1];
                  if ((this.point.category === first.category && this.point.y === first.y) ||
                      (this.point.category === last.category  && this.point.y === last.y)) {
                    return this.point.y;