initial

extract-twitter-accounts.R

@@ -0,0 +1,18 @@
+require(jsonlite)
+require(stringr)
+require(RCurl)
+require(httr)
+
+source("functions.R")
+
+setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/R-Code")
+
+# Set curl handle for friendly scraping
+handle <- getCurlHandle(httpheader = list(from         = "max.mehl@uni.kn",
+                                          'user-agent' = str_c(R.version$version.string)
+)
+)
+
+acc_url <- "http://www.bundestwitter.de/api/politiker"
+
+df <- fromJSON(acc_url)

functions.R

@@ -0,0 +1,2 @@
+require(stringr)
+require(RCurl)