From 557551102983dd5ca20d51ea1bf8d4330ce3738d Mon Sep 17 00:00:00 2001 From: mxmehl Date: Sat, 29 Nov 2014 21:30:42 +0100 Subject: [PATCH] testing API --- extract-twitter-accounts.R | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/extract-twitter-accounts.R b/extract-twitter-accounts.R index 5e2e69b..90067f4 100644 --- a/extract-twitter-accounts.R +++ b/extract-twitter-accounts.R @@ -36,6 +36,16 @@ params <- c( ); url <- "https://api.twitter.com/1.1/statuses/user_timeline.json"; -query <- c(screen_name="peteraltmaier", exclude_replies="true", include_rts=1, count="1"); +query <- c(screen_name="peteraltmaier", include_rts=1, count="100", exclude_replies="true", trim_user="true", include_entities="false"); + +result <- twitter_api_call(url, query, params) + +# Replace characters messing up JSON validation (\ and \n) +result <- str_replace(string = result, pattern = perl('\\\\(?![tn"])'), replacement = " ") +result <- str_replace(string = result, pattern = "\n", replacement = " ") + +result <- fromJSON(result) + +# --------------- + -result <- fromJSON(twitter_api_call(url, query, params))