jebyrnes

require(plyr); require(stringr); require(ggplot2); require(lubridate); require(twitteR)

##need to figure out why there are two datout objects and not just 1...
twitterPlot<-function(myString, n=1500, since=NULL, until=NULL){ 

  since2<-as.character(strptime(since, '%Y-%m-%d')+2*24*60*60)
  until2<-as.character(strptime(until, '%Y-%m-%d')+2*24*60*60)

  datout_1 <- searchTwitter(myString, n = n, since=since, until=until)
  datout_2 <- searchTwitter(myString, n = n, since=since2, until=until2)