18 lines
428 B
R
18 lines
428 B
R
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) |