AABoyles

Array.prototype.repeat = function(times, each) {
  if(!times){return this;}
  if(!each){each=1;}
  var that = this;
  var temp=Array(each*this.length);
  this.forEach(function(el, i){
    for(j = 0; j < each; j++){
      temp[i * each + j] = el;
    }
  });

AABoyles

function htmlreplace(element){
  var nodes=element.childNodes;
  for(var n=0;n<nodes.length;n++){
    if(nodes[n].nodeType==3){
      var r=new RegExp('[pP][^A-Za-z0-9]+[vV]alue', 'gi');
      if(nodes[n].textContent){
        nodes[n].nodeValue=nodes[n].textContent.replace(r,'P. Funk');
      }else{
        nodes[n].nodeValue=nodes[n].nodeValue.replace(r,'P. Funk');
      }

AABoyles

library(devtools)
devtools::install_github("dplyr")
library(dplyr)
devtools::install_github("bigrquery")
library(bigrquery)

billingID <- "Insert Your Project's Billing ID Here"

gdelt <- src_bigquery(billingID, "GDELT")
events <- tbl(gdelt, "events")

AABoyles

AABoyles

import glob, slate
 
for filename in glob.glob( '*.pdf' ):
  with open(filename) as f:
    doc = slate.PDF(f)
    fileout = open(filename.rstrip('.pdf')+'.txt', 'w+')
    fileout.writelines(doc)

AABoyles

############################################################
## Title: Animated Beating Heart in R
## Author: Jared Knowles
## Forked: Tony Boyles
## Date:   February 14, 2014
############################################################

library(animation)
library(ggplot2)

AABoyles

<?php 
//console.php
//  An itty-bitty Oracle DB Console written in PHP.
//  Copyright 2014 By [Tony Boyles]<[email protected]> (http://aaboyles.com)
//  Licensed under the GPL v3 or later.

//Edit these Credentials to match your Oracle Database's
$dbuser = '';
$dbpass = '';
$dbhost = '127.0.0.1';

AABoyles

function table2CSV(table, delim){
  var csv = "data:application/csv;charset=utf-8,";
  if(table instanceof HTMLElement){
    table = $(table);
  }
  if(table instanceof jQuery){
    var regex = /,/g;
    if(delim){
      regex = new RegExp(delim, 'g');
      delim = encodeURIComponent(delim);

AABoyles

/*

You can create a spinner using either of the variants below:

$("#el").spin(true);  //Starts the spinner.
$("#el").spin(false); // Kills the spinner.

*/
(function($) {
  $.fn.spin = function(opts) {

AABoyles

require(RCurl)
gDocs <- "https://docs.google.com/spreadsheet/pub?key=0AuRPH1hRlnZhdEhtbGtZWTRybThvNXBLZW15Vk1Lenc&single=true&gid=0&output=csv"
txCon <- textConnection(getURL(gDocs))
FSI <- read.csv(txCon)