3

R からbitly OAuth2 apiにアクセスできるようにしたいのですが、実装例があるかどうか、または bitly API 用の R ライブラリ/ラッパーがあるかどうか疑問に思っていましたか?

twitteR ライブラリはR OAuth ライブラリ ROAuthにまたがっていますが、これはおそらく OAuth2 をサポートしていませんか? それとも、OAuth2 は OAuth1 の提案を受け入れますか?

4

3 に答える 3

2

これを使用する方法は次のとおりですhttr-これは、GitHub のパッケージの例の流れにあります。

require(jsonlite)
require(httr)

# 1. Find OAuth settings for bit.ly:
# http://dev.bitly.com/authentication.html
bitly <- oauth_endpoint(
  authorize = "https://bitly.com/oauth/authorize",
  access = "https://api-ssl.bitly.com/oauth/access_token")

# 2. Register an application at http://dev.bitly.com/my_apps.html
# Insert your values below - if secret is omitted, it will look it up in
# the BITLY_CONSUMER_SECRET environmental variable.
myapp <- oauth_app("bitly", 
                   key = ".............................", # Client ID
                   secret = "............................") # Client Secret

bitly_token <- oauth2.0_token(bitly, myapp, cache = FALSE) 

# 4. Use API
req <- GET("https://api-ssl.bit.ly/v3/user/info", query = list(access_token = bitly_token$credentials$access_token))
stop_for_status(req)
content(req)$data$profile_url
# [1] "http://bitly.com/u/lukeanker"
于 2014-08-28T14:47:03.557 に答える
1

これまでに、他のAPIにヒットするパッケージ内に3つのfxnsを記述しました：https ：//github.com/ropensci/raltmet/tree/master/R

3つのfxnsは、ユーザーに基づいてclickcを取得し、URLを拡張し、URLを短縮します

次の方法でインストールします。

install.packages("devtools")
require(devtools)
install_github("raltmet", "ropensci")
require(raltmet)
于 2012-07-15T16:17:07.057 に答える
0

ROAUth ( ) の CRAN バージョンでまだ更新されていないもので行うことができますROAuth 0.92。ここで作業コピーを入手できます。ROAuthこのソースからインストールしたら、 のコピーをダウンロードRMendeleyして、R が oauth でどのように機能するかをテストします。

library(devtools)
install_github("rmendeley", "ropensci")
于 2012-07-15T17:24:40.370 に答える