starting issuecounting

2014-12-07 21:06:59 +01:00
parent 1a73ab43c3
commit 1eb6aeec18
3 changed files with 164 additions and 11 deletions
@@ -2,10 +2,8 @@

 require(jsonlite)
 require(stringr)
-require(RCurl)
 require(devtools)
 require(RTwitterAPI)
-require(lubridate)

 setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/uni-ba-issuecomp")

@@ -196,12 +194,3 @@ rm(delrow, r)
 # Convert dates to omit (unnecessary) time
 tweets$created_at <- format(tweets$created_at, "%Y-%m-%d")

-# Create date range
-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:d)
-issues <- data.frame(date = drange)
-
-# Select all tweets from current day in drange
-tweets_curday <- tweets[tweets[, "created_at"] == drange[5], ]