はてな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))