はてなAPI用のOAuthトークンを取得するRパッケージをつくりました

こないだ書いたこれを、

いちおうパッケージにまとめました。

が、結局、たまに401が出る理由は謎のままです。debug()で401が出たのと同じnonceとtimestampでリクエストを送ってみましたが、成功したりします。誰か助けて…。

そういう謎を残したままなので、ほとんど作りこんでいません。トークンを取ってくるただそれだけのパッケージです。ブログに書くほどでもないんですが、なんか書かないのもあれだなあと思って書いています。

使い方

こんな感じです。

library(httr)

token <- oauth1.0_token_hatena(hatena_endpoint(),
                               hatena_app(key = "key", secret = "secret"),
                               scope = "read_public,write_public")
GET("http://n.hatena.com/applications/my.json", config(token = token))