ПИН не генерируется при использовании ROAuth для аутентификации в Twitter

Question

Я пытаюсь пройти аутентификацию в Твиттере, используя R, но не могу получить PIN-код.

У меня есть следующий код:

download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem")

reqURL <- "http://api.twitter.com/oauth/request_token"
accessURL <- "http://api.twitter.com/oauth/access_token"
authURL <- "http://api.twitter.com/oauth/authorize"
consumerKey <- "foo"
consumerSecret <- "bar"
twitCred <- OAuthFactory$new(consumerKey=consumerKey,
                             consumerSecret=consumerSecret,
                             requestURL=reqURL,
                             accessURL=accessURL,
                             authURL=authURL
                             )
twitCred$handshake(cainfo="cacert.pem", ssl.verifypeer=FALSE)

Однако, когда я получаю URL авторизации и набираю его, я все равно не получаю PIN-код: у меня просто есть кнопка для авторизации приложения, а затем я возвращаюсь к обратному URL-адресу, который я указывал ранее.

Это похоже на ситуацию, подобную этому вопросу. Где ПИН-код twitteR появляется во время аутентификации? но средство защиты (чтобы убедиться, что URL-адреса запросов, доступа и аутентификации - http, а не https) не работает для меня.

Я использую R 3.0.0 в Windows 7, ROAuth - 0.9.2, twitteR 1.1.0 - какие-либо из них указывают на причину возникновения этой проблемы?

Answer 1

URL, возвращенный из Twitter после авторизации приложения, имеет "oauth_verifier". Я использовал это в качестве PIN-кода в R. Я смог скопировать и вставить его в R, где он запрашивал PIN-код. Никакого текста не появилось в R, пока я не нажму Enter. ПИН, похоже, был принят. Я попробовал registerTwitterOAuth(cred) и верный ответ был возвращен. Тем не менее, у меня все еще есть проблемы с получением любой информации, возвращаемой из поиска:

Параметры download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem") (RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert).pem ", package =" RCurl ")))
r_stats<- searchTwitter ("# Rstats", n = 100, cainfo = "cacert.pem")

[1] "Проблема с сертификатом SSL, убедитесь, что сертификат ЦС в порядке. Подробности:\nerror:14090086: подпрограммы SSL:SSL3_GET_SERVER_CERTIFICATE: сбой проверки сертификата" Ошибка в twInterfaceObj$doAPICall(cmd, params, "GET", ...): Ошибка: проблема с сертификатом SSL, проверьте, что сертификат CA в порядке. Сведения: ошибка: 14090086: подпрограммы SSL:SSL3_GET_SERVER_CERTIFICATE: сбой проверки сертификата