2014-11-29 13:52:09 +01:00
|
|
|
require(jsonlite)
|
|
|
|
|
require(stringr)
|
|
|
|
|
require(RCurl)
|
2014-11-29 16:11:13 +01:00
|
|
|
require(devtools)
|
|
|
|
|
require(RTwitterAPI)
|
2014-11-29 13:52:09 +01:00
|
|
|
|
|
|
|
|
source("functions.R")
|
|
|
|
|
|
2014-11-29 16:11:13 +01:00
|
|
|
setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/uni-ba-issuecomp")
|
2014-11-29 13:52:09 +01:00
|
|
|
|
|
|
|
|
# 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"
|
2014-11-29 16:11:13 +01:00
|
|
|
acc_json <- readLines("politiker.txt")
|
|
|
|
|
acc_df <- fromJSON(acc_json)
|
2014-11-29 13:52:09 +01:00
|
|
|
|
2014-11-29 16:11:13 +01:00
|
|
|
# --------------
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# http://www.joyofdata.de/blog/twitters-rest-api-v1-1-with-r-for-linux-and-windows/
|
|
|
|
|
# devtools::install_github("joyofdata/RTwitterAPI")
|
|
|
|
|
|
|
|
|
|
params <- c(
|
|
|
|
|
"oauth_consumer_key" = "c9Ob2fWNSONMC0mA2JlNaeRke",
|
|
|
|
|
"oauth_nonce" = NA,
|
|
|
|
|
"oauth_signature_method" = "HMAC-SHA1",
|
|
|
|
|
"oauth_timestamp" = NA,
|
|
|
|
|
"oauth_token" = "1007025684-RFxCDFc4OPkt02bASmdci00TB4jgaPjfqxLRT58",
|
|
|
|
|
"oauth_version" = "1.0",
|
|
|
|
|
"consumer_secret" = "cZ3Il2hmbLgK0Lc57mj5kUvymjVdsmZKYwKOGHR3NhCpvWgEOI",
|
|
|
|
|
"oauth_token_secret" = "rvfv8MgexFKTqrPNSoGrdrZVNhV4fTJb2Bgz249nbvKNg"
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
url <- "https://api.twitter.com/1.1/statuses/user_timeline.json";
|
|
|
|
|
query <- c(screen_name="peteraltmaier", exclude_replies="true", include_rts=1, count="1");
|
|
|
|
|
|
|
|
|
|
result <- fromJSON(twitter_api_call(url, query, params))
|
