From 2f37abab85c9f2f0d194e05ac3ca8df99da08576 Mon Sep 17 00:00:00 2001
From: mxmehl <mail@mehl.mx>
Date: Sun, 22 Feb 2015 02:39:13 +0100
Subject: [PATCH] small changes before parallelisation

---
 issuecomp-analysis.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/issuecomp-analysis.R b/issuecomp-analysis.R
index f4361ef..7724579 100644
--- a/issuecomp-analysis.R
+++ b/issuecomp-analysis.R
@@ -42,6 +42,7 @@ for(d in 1:nrow(issues)) {
   tweets_curday <- tweets[tweets[, "created_at"] == curdate, ]
   
   for(t in 1:nrow(tweets_curday)){
+    cat("Starting tweet", t, "of",as.character(curdate),"\n")
     # Select tweet's text, make it lowercase and remove hashtag indicators (#)
     curtext <- as.character(tweets_curday$text[t])
     curtext <- str_replace_all(curtext, "#", "")
@@ -101,6 +102,7 @@ for(d in 1:nrow(issues)) {
           
           # Add information to file for function viewPatternMatching
           write(str_c(curdate,";\"",curid,"\";",curtag), curfile, append = TRUE)
+          cat("Match!\n")
           break
         }
         else {