如果我是唯一的用户,请避免ROAuth握手中的PIN步骤？

Question

问题:有没有办法避免在进行OAuth握手时手动输入PIN？

上下文:在进行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"))要启用连接,请将您的Web浏览器指向:https://api.twitter.com/oauth / authorize？oauth_token = ...完成后,记录提供给您的PIN并在此处提供:

我输入了一个PIN码.

我想避免这一步,因为每次我在新的R会话中运行脚本时,我都必须手动打开浏览器来检索PIN.我是唯一使用此脚本的人.

Answer 1

执行握手后,您可以将对象保存到文件中......

save(Credentials, file="credentials.RData")

稍后您可以使用load()将文件拉入并使用原始凭据对象.