mxmehl/uni-ba-socialagenda
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

small changes before parallelisation

Browse Source
This commit is contained in:
mxmehl
2015-02-22 02:39:13 +01:00
parent 6f8ff3db25
commit 2f37abab85
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
issuecomp-analysis.R
+2
View File
@@ -42,6 +42,7 @@ for(d in 1:nrow(issues)) {
tweets_curday <- tweets[tweets[, "created_at"] == curdate, ] tweets_curday <- tweets[tweets[, "created_at"] == curdate, ]
for(t in 1:nrow(tweets_curday)){ 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 (#) # Select tweet's text, make it lowercase and remove hashtag indicators (#)
curtext <- as.character(tweets_curday$text[t]) curtext <- as.character(tweets_curday$text[t])
curtext <- str_replace_all(curtext, "#", "") curtext <- str_replace_all(curtext, "#", "")
@@ -101,6 +102,7 @@ for(d in 1:nrow(issues)) {
# Add information to file for function viewPatternMatching # Add information to file for function viewPatternMatching
write(str_c(curdate,";\"",curid,"\";",curtag), curfile, append = TRUE) write(str_c(curdate,";\"",curid,"\";",curtag), curfile, append = TRUE)
cat("Match!\n")
break break
} }
else { else {