small changes before parallelisation

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 {