tweets per day + larger issuelist

.Rhistory

@@ -1,21 +1,3 @@
-all(test)
-test <- NULL
-View(c_errors)
-c_errors <- read.csv("issuecomp-codingsample-error.csv", header = F, sep=",", colClasses="character")
-names(c_errors) <- c("str_id", "code", "tags", "text")
-for(r in 1:nrow(c_errors)) {
-c_errcode <- as.character(c_errors$code[r])
-c_errtags <- as.character(c_errors$tags[r])
-c_errtext <- as.character(c_errors$text[r])
-cat("===============\n\n[TWEET]: ",c_errtext,"\n[ISSUES]: ", c_errtags, "\n", sep="")
-source("issuecomp-codingsample-function2.R")
-}
-status
-for(r in 1:nrow(c_errors)) {
-c_errcode <- as.character(c_errors$code[r])
-c_errtags <- as.character(c_errors$tags[r])
-c_errtext <- as.character(c_errors$text[r])
-cat("===============\n\n[TWEET]: ",c_errtext,"\n[ISSUES]: ", c_errtags, "\n", sep="")
 source("issuecomp-codingsample-function2.R")
 }
 if(c_errcode == "1") {
@@ -510,3 +492,21 @@ c_errid <- as.character(c_errors$str_id[r])
 cat("===============\n\n[TWEET]: ",c_errtext,"\n[ISSUES]: ", c_errtags, "\n", sep="")
 source("issuecomp-codingsample-function2.R")
 }
+require(jsonlite)
+require(stringr)
+require(devtools)
+require(RTwitterAPI)
+setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/uni-ba-issuecomp")
+source("issuecomp-functions.R")
+acc_df <- read.csv("MdB-twitter.csv")
+delrow <- NULL
+for(r in 1:nrow(acc_df)) {
+acc <- as.character(acc_df$twitter_acc[r])
+if(!nzchar(acc)) {
+delrow <- c(delrow, r)
+}
+}
+acc_df <- acc_df[-delrow, ]
+rm(delrow, r, acc)
+acc_df$row.names <- NULL
+row.names(acc_df) <- NULL