abelsonlive

 classify_sentiment <- function(text){
# install required pacakges
	if (!require(sentiment)) {
	  install.packages('sentiment')
	  library('sentiment')
	}
	if (!require(Rstem)) {
	  install.packages('Rstem', repos = 'http://www.omegahat.org/R', type='source')
	  library('Rstem')
	}

abelsonlive

RMDFILE=demo-rmd-pandoc
PANDOC=~/.cabal/bin/pandoc

all:
	Rscript -e "require(knitr); require(markdown); knit('$(RMDFILE).rmd', '$(RMDFILE).md'); purl('$(RMDFILE).rmd')"
	${PANDOC} --mathjax --toc -B header.html -A footer.html --bibliography refs.bib --css markdown.css -s $(RMDFILE).md -o $(RMDFILE).html
 

abelsonlive

# this feels weird, but there's some magic here. Ruby knows where 'rubygems' is without you having to explain it with an exact path.
require 'rubygems'

# now you can you just flat-out require ANY gem you have installed! like
require 'pony'

# all of the sudden you have this really cool ruby library called 'pony' in your application's object space! And you can do shit like this:

Pony.mail({
  :to => 'matt@cutt.com',

abelsonlive

# this function takes an input numeric vector and 
# partitions it into a set number of breaks
# it then assigns a color to each break via RColorBrewer

assignColors <- function(var, 
                         n = 9, # number of colors / breaks
                         style = "jenks", # can be changed to other methods in "classIntervals"
                         pal = "RdYlBu", # Palettes from RColorBrewer
                         na_color ='#787878', # Color to give NA's
                         na_omit = FALSE, # Logical, argument above will be irrelevant if TRUE

abelsonlive

'<meta property=\"og:url\" content=\"(http://www.kickstarter.com/projects/[0-9a-zA-Z-]+/[a-z0-9-]+)' 

abelsonlive

tryRRR <- 
    function (
      expr, 
      ARRR = TRUE,
      lang = 'sp',
      time = 10
      )  
    {
        setwd(getwd())
        require("lubridate")

abelsonlive

First things first...

• Swap Control and Caps Lock in System Preferences -> Keyboard -> Modifier Keys
• Google Chrome http://www.google.com/chrome/
• iTerm2 http://www.iterm2.com/
• Oh my zsh https://github.com/robbyrussell/oh-my-zsh/
• XCode (from the mac app store)
• XCode command line tools (run XCode, go to Preferences -> Downloads -> Command Line Tools)
• Homebrew https://github.com/mxcl/homebrew/wiki/installation

abelsonlive

#!/usr/bin/bash
## include --upsert if adding to a prexistitng collection
mongoimport -d db_name -c coll_name --type csv --file file.csv --headerline

abelsonlive

# yay!
cbind.fill<-function(...){
    nm <- list(...) 
    nm<-lapply(nm, as.matrix)
    n <- max(sapply(nm, nrow)) 
    do.call(cbind, lapply(nm, function (x) 
    rbind(x, matrix(, n-nrow(x), ncol(x))))) 
}

abelsonlive

# scrape with llply, handling errors
output <- llply(urls, function(url) {
                                out <- try(scrapeCast(url), TRUE)
                                if (class(out)=='try-error') {
                                    out <- NULL
                                    print(paste("error scraping" url))
                                } else {
                                    return(out)
                                }
                             }, .progress="text")