From a1bb0d8c4a2e123739cac5b00d8f06a5f27f10e0 Mon Sep 17 00:00:00 2001
From: mxmehl <mail@mehl.mx>
Date: Sat, 29 Nov 2014 13:52:09 +0100
Subject: [PATCH] initial

---
 extract-twitter-accounts.R | 18 ++++++++++++++++++
 functions.R                |  2 ++
 2 files changed, 20 insertions(+)
 create mode 100644 extract-twitter-accounts.R
 create mode 100644 functions.R

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)