commit a1bb0d8c4a2e123739cac5b00d8f06a5f27f10e0
Author: mxmehl <mail@mehl.mx>
Date:   Sat Nov 29 13:52:09 2014 +0100

    initial

diff --git a/extract-twitter-accounts.R b/extract-twitter-accounts.R
new file mode 100644
index 0000000..2c14f62
--- /dev/null
+++ b/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)
\ No newline at end of file
diff --git a/functions.R b/functions.R
new file mode 100644
index 0000000..aec40ad
--- /dev/null
+++ b/functions.R
@@ -0,0 +1,2 @@
+require(stringr)
+require(RCurl)