R言語でTwitterを操作する

■目的
R言語のパッケージtwitterRを使用する
マニュアルどおり遣ってもうまくいかなかったので、なんとかしてみた

■手順
#任意の箇所にtwitteRパッケージをダウンロードする
install.packages("twitteR","c:\\dev\\R")

#ダウンロードした箇所をライブラリのパスに追加する
.libPaths("c:\\dev\\r")

#ライブラリを読み込む
library(twitteR)

#任意のフォルダをカレントディレクトリとする。これは認証用のファイルの入出力で使用する
setwd("C:\\doc\\r")

# SSLの認証をするためのpemファイルをダウンロードしておく
# これがないとHTTPSのプロトコル経由で操作できないYO！
download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem")

#OAuthの認証開始
# consumerKeyとconsumerSecretは下記のURLから取得しておく
# https://dev.twitter.com/
cred<-OAuthFactory$new(consumerKey="Twitterで登録したコンシューマキー",
consumerSecret="Twitterでとうろくした値",
requestURL ="https://api.twitter.com/oauth/request_token",
accessURL = "https://api.twitter.com/oauth/access_token",
authURL="https://api.twitter.com/oauth/authorize")

#接続開始
cred$handshake(cainfo="cacert.pem")

この際、下記のような画面になる


現在、oauth_verifierの値の入力待ちの状態なので、ここに表示されているURLをブラウザで表示する。
すると、次のような画面になる


アプリケーションの連携を許可するとリダイレクトされる。

ブラウザのURLのoauth_verifier以降の値を入力待ちされているRに入力すると認証が完了する。

# 認証情報をTwitterに登録
registerTwitterOAuth(cred)

#タイムラインを取得。この際、PEMファイルを指定しないとHTTPSでは通信できない
userTimeline("mima_ita",cainfo="cacert.pem")



やったね、Rちゃん!ツイートがみれたよ！




■フォロワーの取得
#userオブジェクトを取得してから、そのユーザのフォロワーを取得する
u <- getUser("mima_ita",cainfo="cacert.pem")
followerobj<-u$getFollowers(cainfo="cacert.pem")

■Windowsで日本語を含む検索をするとき
#iconvでUTF－８に変換してやる
searchTwitter( iconv("ねこ","CP932","UTF-8"),cainfo="cacert.pem")


■Windowsで文字化けした場合の対処法
twitteRを久しぶりに使用したら文字化けしていた件


■認証情報を保存する方法
以下のように認証情報を保存が可能

# save it for a future sessions...
save(list="cred", file="twitteR_cred")

次回以降は、以下のようにして使用する

load("twitteR_cred")
registerTwitterOAuth(cred)