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

Question

问题：是否有一种方法可以避免在进行OAuth握手时手动输入OAuth？

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"))

其中产出：

凭证$握手(cainfo= system.file("CurlSSL"，"cacert.pem"，package = "RCurl"))要启用连接，请将您的web浏览器指向：token=.完成后，记录给您的PIN并在这里提供：

我输入了密码。

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

Answer 1

完成握手后，可以将对象保存到文件中.

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

稍后，您可以使用load()来提取文件并使用原始凭据对象。