twitteR サンプル

RjpWiki

twitteR サンプル †

twitteRとは †

Rベースののtwitterクライアント

インストールと読み込み †

> install.packages("twitteR")
> library("twitteR")

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

認証がいらないAPI †

• 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ç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 <- initSession('myUser', 'myPass')           ns <- updateStatus('this is my new status message', sess)"

認証が必要なAPI †

• 初期化

> 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クラス †

返ってくる結果は、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"