twitteR サンプルの変更点

追加された行はこの色です。
削除された行はこの色です。
twitteR サンプルへ行く。
twitteR サンプルの差分を削除
[[RjpWiki]]

* twitteR サンプル [#l7bb0b1f]
** twitteRとは [#p062b30f]
Rベースののtwitterクライアント

** インストールと読み込み [#o3aef601]
 > install.packages("twitteR")
 > library("twitteR")

以下、自分以外のIDは伏せてます。

** 認証がいらないAPI [#w958484f]
- public_timeline

 > head( publicTimeline() )
 [[1]]
 [1] "xxxx: @xxxx u jealous or something?"
 
 [[2]]
 [1] "xxxx: @xxxx なにこのあいこんかわえええええ！"
 
 [[3]]
 [1] "xxxx: RT @xxxx: I need a boyfriend for the month! Good luck w/ that lOl"
 
 [[4]]
 [1] "xxxx: @xxxx, Ciro vice, o DEM dan&#231;ou com o caso Arruda"
 
 [[5]]
 [1] "xxxx: @xxxx how much does it cost to watch?"
 
 [[6]]
 [1] "xxxx: @xxxx Cuuuuute!"

- user_timeline

 > head( userTimeline("yokkuns") )
 [[1]]
 [1] "yokkuns: おぉ、これは便利。もうbot作れてしまうな"
 
 [[2]]
 [1] "yokkuns: あ、ちゃんとマニュアルあった"
 
 [[3]]
 [1] "yokkuns: statusはどうやって取るんだろう"
 
 [[4]]
 [1] "yokkuns: 出来た"
 
 [[5]]
 [1] "yokkuns: テスト"
 
 [[6]]
 [1] "yokkuns: sess &lt;- initSession('myUser', 'myPass')           ns &lt;- updateStatus('this is my new status message', sess)"
 
** 認証が必要なAPI [#r0768538]

- 初期化

 > yokkuns <- initSession("yokkuns","********")

- friends_timeline

 > head( friendsTimeline(yokkuns) )
 [[1]]
 [1] "xxxxxx: 二日酔いけてーいwあぁかえりてぇ"
 
 [[2]]
 [1] "xxxxxx: 自分と大して身長の変わらない少年がランドセルしょってた。ウケる。"
 
 [[3]]
 [1] "xxxxxx: ワンストップ・サービスって取り組みは評価する。普及するには難しいけど。そうなればこの公共人生相談所はハローライフとかに改名して生活再建を謳うのが良い。もはや仕事を斡旋してどうこうなるレベルではないような気がするんだ。"
 
 [[4]]
 [1] "xxxxxx: ポッポは、年収と月収の違いは理解できてるのかなぁ？年だよぉ。  QT @xxxxxx 子ども手当、年収2000万円上限　政府調整、与党に引き下げ案 NIKKEI NET http://bit.ly/7a8A6T"
 
 [[5]]
 [1] "xxxxxx: おはようございます。今日はメトロ遅延していないようで安心しました。"
 
 [[6]]
 [1] "xxxxxx: 寒い。寒すぎる。"

- mentions

 > head( mentions(yokkuns) )
 [[1]]
 [1] "xxxxx: @yokkuns \"R\"に反応。"
 
 [[2]]
 [1] "xxxxx: @yokkuns おはっす！寒いですねーー！"
 
 [[3]]
 [1] "xxxxx: @yokkuns コーヒー 60円了解しました。先月の食費は、3980円、今月は今日までに760円です。"
 
 [[4]]
 [1] "xxxxx: @yokkuns だめ！！！！"
 
 [[5]]
 [1] "xxxxx: @yokkuns 歌詞探してねｗ"
 
 [[6]]
 [1] "xxxxx: @yokkuns 特急料金を…（ｒｙ　歌詞がない…。"

** statusクラス [#scd6ea49]
返ってくる結果は、statusクラスのオブジェクトのリストになっていて、statusクラスは以下のようなメソッドが用意されている。

- statusクラスのメソッド
 show
 text
 favorited
 replyToSN
 created
 truncated
 replyToSID
 id
 replyToUID
 statusSource
 screenName

- 例
 > yokkuns_status <- userTimeline("yokkuns")
 > yokkuns_status[[1]]
 [1] "yokkuns: 3歳児って、もうPC使いこなせるんだなぁ。。。"
 
 > class(yokkuns_status[[1]])[1] "status"
 attr(,"package")
 [1] "twitteR"
 > show(yokkuns_status[[1]])
 [1] "yokkuns: 3歳児って、もうPC使いこなせるんだなぁ。。。"
 > text(yokkuns_status[[1]])
 [1] "3歳児って、もうPC使いこなせるんだなぁ。。。"
 > favorited(yokkuns_status[[1]])
 [1] FALSE
 > replyToSN(yokkuns_status[[1]])
 character(0)
 > created(yokkuns_status[[1]])
 [1] "Sun Dec 20 02:21:33 +0000 2009"
 > truncated(yokkuns_status[[1]])
 [1] FALSE
 > replyToSID(yokkuns_status[[1]])
 numeric(0)
 > id(yokkuns_status[[1]])
 [1] 6847297103
 > replyToUID(yokkuns_status[[1]])
 numeric(0)
 > statusSource(yokkuns_status[[1]])
 [1] "<a href=\"http://d.hatena.ne.jp/lynmock/20071107/p2\" rel=\"nofollow\">P3:PeraPeraPrv</a>"
 > screenName(yokkuns_status[[1]])
 [1] "yokkuns"

*関連リンク [#a595aebb]
-[[streamR: Access to Twitter Streaming API via R:http://cran.md.tsukuba.ac.jp/web/packages/streamR/]]
twitteR サンプル の変更点

twitteR サンプルの変更点
