initial

2014-11-29 13:52:09 +01:00
commit a1bb0d8c4a
2 changed files with 20 additions and 0 deletions
@@ -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)
@@ -0,0 +1,2 @@
+require(stringr)
+require(RCurl)