如果我是唯一的用戶，請避免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")) 

，輸出：

證書$握手（cainfo = system.file（「CurlSSL」，「cacert.pem」， package =「RCurl」））要啓用連接，請將您的網絡 瀏覽器指向：https://api.twitter.com/oauth/authorize?oauth_token= ... 完成後， e PIN給你並在這裏提供：

然後我輸入PIN碼。

我想避免這一步，因爲每次我在新的R會話中運行腳本時，我都必須手動打開瀏覽器以檢索PIN。我是唯一使用這個腳本的人。

Answer 1

在執行握手，你可以將對象保存到一個文件...

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

在你可以使用load（）來拉在文件和使用原始憑證對象以後再說。