current status

issuecomp-analysis.R

@@ -2,6 +2,7 @@ require(lubridate)
 require(XML)
 require(ggplot2)
 require(reshape2)
+require(stringr)
 
 # Create date range
 date_start <- as.Date("2014-01-01")
@@ -15,8 +16,10 @@ issueheads <- names(issuelist)
 issues[issueheads] <- 0
 
 for(d in 1:nrow(issues)) {
+  # Go through every day
   curdate <- issues$date[d]
   cat(as.character(curdate),"\n")
+  
   # Put all tweets from specific day in a temporary DF
   tweets_curday <- tweets[tweets[, "created_at"] == curdate, ]