current status

.Rhistory

@@ -1,25 +1,3 @@
-rm(tweets_temp)
-tweets_temp <- fromJSON(correctJSON(current))
-## START ERROR HANDLING ##
-# Empty API output
-status <- errorEmptyAPI(tweets_temp)
-if(status == 1) { Sys.sleep(3);error <- error + 1;next}
-if(status == 2) {break}
-# Contains "error" column
-status <- errorErrorColumn(tweets_temp)
-if(status == 1) { Sys.sleep(3);error <- error + 1;next}
-if(status == 2) {break}
-# Check if error code exists
-code <- errorCheckCode(tweets_temp) # 0 if no error
-if(code == 34) {  # page does not exist
-status <- errorCode34()
-if(status == 1) { Sys.sleep(3);error <- error + 1;next}
-if(status == 2) {break}
-}
-if(code == 88) {  # rate limit exceeded
-wait <- errorCode88()
-Sys.sleep(wait)
-next
 }
 ## END ERROR HANDLING ##
 # Delete unnecessary columns and add username and real name to dataframe
@@ -510,3 +488,25 @@ api_params2
 rm(tweets_complete)
 rm(api_params2)
 source("issuecomp-functions.R")
+source("issuecomp-functions.R")
+setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/uni-ba-issuecomp")
+require(lubridate)
+require(XML)
+require(ggplot2)
+require(reshape2)
+date_start <- as.Date("2014-01-01")
+date_end <- as.Date("2014-12-01")
+drange <- as.integer(date_end - date_start)
+drange <- date_start + days(0:drange)
+issues <- data.frame(date = drange)
+View(issues)
+date_start <- as.Date("2014-01-01")
+date_end <- as.Date("2014-12-31")
+drange <- as.integer(date_end - date_start)
+drange <- date_start + days(0:drange)
+issues <- data.frame(date = drange)
+View(issues)
+issuelist <- xmlToList("issues.xml")
+issueheads <- names(issuelist)
+issues[issueheads] <- 0
+View(issues)