TwitteR、ROAuth 和 Windows:注册成功，但证书验证失败 [英] TwitteR, ROAuth and Windows: register OK, but certificate verify failed
问题描述
我正在尝试使用 twitteR 获取大量 Twitter 用户的关注者数量.许多其他问题 已发布对让我走到这一步非常有用，但据我所知，似乎没有一个与我的问题直接相关.
I'm trying to get the number of followers of a large number of Twitter users with twitteR. Many of the other questions posted have been very useful in getting me this far, but none seem to be directly relevant to my problem, so far as I can see.
我可以将我的 OAuth 凭据注册到 twitter R 会话，但随后我似乎什么也做不了，我只得到以下消息:
I can register my OAuth credentials to a twitter R session, but then I can't seem to do anything at all, I just get is this message:
函数错误(类型，味精，asError = TRUE):SSL证书问题，验证CA证书是否OK.细节:错误:14090086:SSL 例程:SSL3_GET_SERVER_CERTIFICATE:证书验证失败
当我在不使用 OAuth 的情况下使用 twitteR 函数时，它们运行良好，没有错误或警告，但我遇到了限制和受保护的帐户，我认为我可以通过 OAuth 避免这些问题.
When I use the twitteR functions without using OAuth they work fine with no errors or warnings, but I bump into limits and protected accounts, which I thought I could avoid with OAuth.
详情如下:
library(twitteR)
library(ROAuth)
library(RCurl)
#
# Here's how I register my credentials
#
requestURL <- "https://api.twitter.com/oauth/request_token"
accessURL = "https://api.twitter.com/oauth/access_token"
authURL = "https://api.twitter.com/oauth/authorize"
consumerKey = "------------"
consumerSecret = "-----------"
twitCred <- OAuthFactory$new(consumerKey=consumerKey,
consumerSecret=consumerSecret,
requestURL=requestURL,
accessURL=accessURL,
authURL=authURL)
download.file(url="http://curl.haxx.se/ca/cacert.pem",
destfile="cacert.pem")
twitCred$handshake(cainfo="cacert.pem")
To enable the connection, please direct your web browser to:
https://api.twitter.com/oauth/authorize?oauth_token=xxxx
When complete, record the PIN given to you and provide it here: xxxxxx
registerTwitterOAuth(twitCred)
[1] TRUE
# so the OAuth bit appears to be ok...
#
# save it for a future sessions...
save(list="twitCred", file="twitteR_credentials")
# works, in future I can just
load("twitteR_credentials")
registerTwitterOAuth(twitCred)
#
# try to get follower numbers, here's where it goes south
me <- getUser("Rbloggers")
me$followersCount
Error in function (type, msg, asError = TRUE) :
SSL certificate problem, verify that the CA cert is OK. Details:
error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed
#
# another method, same problem
getUser("Rbloggers")$followersCount
Error in function (type, msg, asError = TRUE) :
SSL certificate problem, verify that the CA cert is OK. Details:
error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed
#
# Here are the packages and versions I'm using
sessionInfo()
R version 2.14.1 (2011-12-22)
Platform: i386-pc-mingw32/i386 (32-bit)
locale:
[1] LC_COLLATE=English_Australia.1252 LC_CTYPE=English_Australia.1252
[3] LC_MONETARY=English_Australia.1252 LC_NUMERIC=C
[5] LC_TIME=English_Australia.1252
attached base packages:
[1] stats4 stats graphics grDevices utils datasets methods base
other attached packages:
[1] ROAuth_0.9.2 digest_0.5.1 twitteR_0.99.19 rjson_0.2.6 RCurl_1.91-1.1
[6] bitops_1.0-4.1 igraph_0.5.5-4 topicmodels_0.1-4 tm_0.5-7 slam_0.1-23
[11] modeltools_0.2-18 lasso2_1.2-12
loaded via a namespace (and not attached):
[1] tools_2.14.1
如何在我注册凭据后让 twitteR 功能正常工作?
How can I get the twitteR functions working after I register my credentials?
更新:尝试@Btibert3 的建议给出了同样的错误:
UPDATE: Trying @Btibert3's suggestion gives the same error:
> ## Authenticate with Twitter = this is an important peice of code
> registerTwitterOAuth(cred)
[1] TRUE
> ##########################################################################
> ## lets test out what our session limits look like
> ##########################################################################
> rate.limit <- getCurRateLimitInfo()
Error in function (type, msg, asError = TRUE) :
SSL certificate problem, verify that the CA cert is OK. Details:
error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed
UPDATE 按照@flz 的建议在任何地方添加 cainfo="cacert.pem" 解决了我的问题:
UPDATE following @flz's suggestion to add cainfo="cacert.pem" everywhere has fixed my problem:
rate.limit <- getCurRateLimitInfo( cainfo="cacert.pem")
rate.limit
resource limit remaining reset
1 /lists/subscribers 180 180 2013-03-27 09:35:37
2 /lists/list 15 15 2013-03-27 09:35:37
3 /lists/memberships 15 15 2013-03-27 09:35:37
4 /lists/ownerships 15 15 2013-03-27 09:35:37
5 /lists/subscriptions 15 15 2013-03-27 09:35:37
6 /lists/members 180 180 2013-03-27 09:35:37
7 /lists/subscribers/show 15 15 2013-03-27 09:35:37
8 /lists/statuses 180 180 2013-03-27 09:35:37
9 /lists/show 15 15 2013-03-27 09:35:37
10 /lists/members/show 15 15 2013-03-27 09:35:37
11 /application/rate_limit_status 180 179 2013-03-27 09:35:37 (etc)
会话信息:
sessionInfo()
R version 2.15.3 (2013-03-01)
Platform: x86_64-w64-mingw32/x64 (64-bit)
locale:
[1] LC_COLLATE=English_United States.1252 LC_CTYPE=English_United States.1252
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C
[5] LC_TIME=English_United States.1252
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] ROAuth_0.9.2 digest_0.6.3 twitteR_1.1.0 rjson_0.2.12 RCurl_1.95-4.1 bitops_1.0-5
loaded via a namespace (and not attached):
[1] tools_2.15.3
推荐答案
尝试:
getUser("Rbloggers")$followersCount
Error in function (type, msg, asError = TRUE) :
SSL certificate problem, verify that the CA cert is OK. Details:
error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed
getUser("Rbloggers",cainfo="cacert.pem")$followersCount
[1] 2752
每个获取/更新操作都需要一个 cainfo="cacert.pem" 附加在后面.好烦.
Every get/update action needs a cainfo="cacert.pem" append behind. That annoy.
这篇关于TwitteR、ROAuth 和 Windows:注册成功，但证书验证失败的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
