dill

library(ggplot2)
library(emoGG)

source("imgcat.R")

p <- ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) + geom_emoji(emoji="1f337")
imgcat(print(p))

pudo

dayLength = 24 * 60 * 60 * 1000
beforeMidnight = (dayLength - 1)

endDate = (year, month, day) ->
  date = new Date(year, parseInt(month or 1)-1, day or 1)
  return new Date(date.getTime() + beforeMidnight)
  

exports.parseDate = (dateString) ->

pudo

CREATE OR REPLACE FUNCTION nomenklatura (key text, dataset text, api_key text)
  RETURNS text
AS $$
    import json, urllib, urllib2
    url = 'http://nomenklatura.okfnlabs.org/%s/lookup?' % dataset
    url += urllib.urlencode({'api_key': api_key, 'key': key})
    req  = urllib2.Request(url, None, {'Accept': 'application/json'})
    try: