abresler

 ### Example get_nba_player_game_log_stats(player = "Zach Randolph", season = 2001:2014)
get_nba_player_game_log_stats <-
	function(player, season , season.type = 'Regular Season') {
		packages <-
			c('dplyr', 'magrittr', 'jsonlite', 'stringr', 'tidyr', 'lubridate', 'readr')
		lapply(packages, library, character.only = T)
		
		players <- 
			"https://raw.githubusercontent.com/abresler/si_hackathon/master/data/nba/all_player_data.csv"%>% 
			read_csv()

revodavid

library(checkpoint)
checkpoint("2015-03-04")
require(devtools)

## no way to install EBImage reproducibly
source("http://bioconductor.org/biocLite.R")
biocLite("EBImage")

# latest commits as of 2015-03-04
install_github("ramnathv/rblocks", ref="a85e748390c17c752cc0ba961120d1e784fb1956")

SolomonMg

library(RCurl)
getSurveyResults <- function (username, 
    token, surveyid, truncNames = 20,
    Questions = NULL, 
    Labels = "1", 
    ExportTags = "1", 
    LocalTime = "1", 
    startDate = NULL, endDate = NULL) {

  url = paste(

nderkach

Record a screencast with QuickTime Player

1. Connect an iOS defice with a cable
2. In QuickTime Player: Option-Cmd-N (New Movie Recording) -> Select your device from the recording menu:

Install gifify

joyrexus

Demo of multipart form/file uploading with hapi.js.

Usage

npm install
npm run setup
npm run server

Then ...

LeCoupa

/* *******************************************************************************************
 * THE UPDATED VERSION IS AVAILABLE AT
 * https://github.com/LeCoupa/awesome-cheatsheets
 * ******************************************************************************************* */


// 0. Synopsis.
// http://nodejs.org/api/synopsis.html

woobe

The rBlocks Experiement

Having fun with Ramnath Vaidyanathan's new package rblocks!

Iris & AirPassengers

i2pi

erinshellman

py_dict = readLines('python_dictionary.txt')
# e.g.
#{"cat_name": "Ella", "dwell_status": "tree_dweller", "coat_color": "gray, white, orange", "is_from_hell": "Y"}
#{"cat_name": "Billie", "dwell_status": "bush_dweller", "coat_color": "gray, white", "is_from_hell": "N"}

dict_to_df = function(dict) {
  
  require(plyr)
  df = data.frame()
  df_temp = list()

hrbrmstr

library(ggplot)

nosql.df <- read.csv("nosql.csv", header=TRUE)
nosql.df$Database <- factor(nosql.df$Database,
                            levels=c("MongoDB","Cassandra","Redis","HBase","CouchDB",
                                     "Neo4j","Riak","MarkLogic","Couchbase","DynamoDB"))

gg <- ggplot(data=nosql.df, aes(x=Quarter, y=Index))
gg <- gg + geom_point(aes(color=Quarter), size=3)
gg <- gg + facet_grid(Database~.)