Question:有没有办法避免在进行 OAuth 握手时手动输入 PIN?
Context:进行 ROAuth 握手时,系统会要求我输入通过以下链接获取的 PIN:
rm(list=ls())
library("twitteR")
library("ROAuth")
Credentials <- OAuthFactory$new(
consumerKey = "...",
consumerSecret = "...",
oauthKey = "...",
oauthSecret = "...",
requestURL = "https://api.twitter.com/oauth/request_token",
authURL = "https://api.twitter.com/oauth/authorize",
accessURL = "https://api.twitter.com/oauth/access_token")
Credentials$handshake(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl"))
哪个输出:
凭据$handshake(cainfo = system.file("CurlSSL", "cacert.pem",
package = "RCurl")) 要启用连接,请直接访问您的网站
浏览器至:https://api.twitter.com/oauth/authorize?oauth_token= https://api.twitter.com/oauth/authorize?oauth_token=...
完成后,记录提供给您的 PIN 码并在此处提供:
然后我输入 PIN 码。
我想避免这一步,因为每次我在新的 R 会话中运行脚本时,我都必须手动打开浏览器来检索 PIN。我是唯一使用这个脚本的人。
执行握手后,您可以将对象保存到文件中......
save(Credentials, file="credentials.RData")
稍后,您可以使用 load() 拉入文件并使用原始 Credentials 对象。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)