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)