如果我是唯一用户，请避免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（）来拉在文件中，并使用原始凭证的对象。