Доступ к API потоковой передачи Twitter с использованием R с использованием streamR & ROAuth
Я пытаюсь подключиться к API потоковой передачи Twitter в R. Мой код (включая поддельный ключ пользователя и секрет) выглядит следующим образом:
library(streamR)
library(ROAuth)
requestURL <- "https://api.twitter.com/oauth/request_token"
accessURL <- "http://api.twitter.com/oauth/access_token"
authURL <- "http://api.twitter.com/oauth/authorize"
consumerKey <- "xxxxxxxyyyyyyyyzzzzzzzz"
consumerSecret <- "xxxxxxxyyyyyyyyzzzzzzzz123123123123123"
my_oauth <- OAuthFactory$new(consumerKey=consumerKey,
consumerSecret=consumerSecret, requestURL=requestURL,
accessURL=accessURL, authURL=authURL)
my_oauth$handshake(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl"))
Когда я ввожу этот код, я получаю следующее сообщение (хотя я изменил веб-адрес):
To enable the connection, please direct your web browser to:
http://api.twitter.com/oauth/authorize?oauth_token=xxxxxxxyyyyyyyyzzzzzzzz
When complete, record the PIN given to you and provide it here:
Следующее, что я вижу, это следующий экран в моем браузере:
Я выбираю "Авторизовать приложение", и меня покидают api.twitter.com. Я никогда не вижу ПИН-код, который мне нужен для продвижения вперед.
Любые идеи относительно того, как решить эту проблему (и получить PIN-код, который мне нужен для подключения, которое я пытаюсь создать), приветствуются!