廿TT

譬如水怙牛過窓櫺 頭角四蹄都過了 因甚麼尾巴過不得

twitteR を使えるようにするためのメモ(version 1.1.9)

R から twitter のデータを引っ張ってこれるパッケージ twitteR、だいぶかんたんになってました。

まず最初にじぶん用のツイッターアプリをつくる必要があります。

https://dev.twitter.com/ツイッターアカウントでログイン。

下のほうにちっちゃく出てる Manage Your Apps をクリック。

f:id:abrahamcow:20160120030649p:plain

Create New App をクリックして求められる事項を適当に入力してライセンスに Agree。

f:id:abrahamcow:20160120030749p:plain

Keys and Access Token のタブから

の情報をどこかにコピーしておきます。

次に R からパッケージをインストール。twitteR のほかに base64enc もいるみたいです。

install.packages("base64enc")
install.packages("twitteR")
consumerKey <- "xxx"
consumerSecret <- "xxx"
AccessToken <- "xxx"
AccessTokenSecret <- "xxx"

のような感じで先ほどの情報を入力して、

setup_twitter_oauth(consumerKey,consumerSecret,AccessToken,AccessTokenSecret)

以上でオーサライズ完了です。使えるようになります。

#例
> searchTwitter("猫", n=10)
[[1]]
[1] "mymy192: あっちのアカウント クソうるさくてごめん白猫関係ない人リムってほんと笑"

[[2]]
[1] "s_bambi_: 会ってる時でもなんとなく寂しいのは恋愛では普通の事だと思っていた頃もあったけど、ああ自分が猫だったら今絶対喉が鳴ってるだろうなって思える恋愛を知ったしそっちの方が断然幸せなのは間違いないし"

[[3]]
[1] "nanasi_nikonama: 【生放送】【サミタ】 GODライジング 裏で白猫   【ななしん】 を開始しました。 https://t.co/rBu9A5I5i8 #lv249615577"

[[4]]
[1] "nichikakonjiki: 最近、うちの外飼いのノラ猫あがりの猫が、隙あらば家の中に入ってきて、めっちゃかわいい。(*´◒`*)でも、半ノラだから、入れないよ~♡(非情"

[[5]]
[1] "tamuteru: モンスト グランブルー 白猫やってます‼"

[[6]]
[1] "____Crane_xxx: @xxx (己と同じ色合いの猫を片腕に抱き、からからと愛らしい音を立てる鈴を付けた絵馬を一つ。──神の端くれが願掛けとは笑い話だ、なぁ、黒猫よ。)\n \n!特殊設定につき仕様書一読推奨\n!刀、人選有り\n\n#とうらぶなりきりさんと繋がりたい"

[[7]]
[1] "tk_y30: RT @do3104mi: これ大好き♪\nニノに耳ペロンも松潤とのやり取りも、智くんホント猫みたいで可愛いし♡もういいやって言ったら、すぐに両側から出てくる手が微笑ましい(´∀`=) http://t.co/MhpypZRpmX"

[[8]]
[1] "ruru_shioruru: RT @felissimonekobu: セラピー猫「ニケ」(佐竹茉莉子さんの「道ばた猫日記」)\nhttps://t.co/4CXCheE5SF\n\nニケくんは、キジトラの男の子。アニマルセラピーの「慰問猫」として働いています。 https://t.co/0HdMgrGLCP"

[[9]]
[1] "svinkapeppa001: https://t.co/ueRfWmWB7S 【吹いたら負け】超面白いテストの珍解答10連発!! Vol.5 #おもしろ動画 #動画 #猫 https://t.co/G948W0tYSY"

[[10]]
[1] "momiji_eropop: 癒され度100%!世界に拡散中、日本発「猫転送装置」https://t.co/2RwXyo8Zvr"

> userTimeline('barackobama', n=10)
[[1]]
[1] "BarackObama: Because of American diplomacy, all of Iran's pathways to a nuclear weapon have been blocked. #IranDeal https://t.co/viKHWJecue"

[[2]]
[1] "BarackObama: \"It is our mission to fulfill his vision of a nation devoted to rejecting bigotry in all its forms.\" —President Obama #MLKDay"

[[3]]
[1] "BarackObama: Happy birthday, @FLOTUS. Thank you for all you do. https://t.co/ITj9tbXk68"

[[4]]
[1] "BarackObama: \"That’s when America works best—when everyone has opportunity; when everyone has some security.\" —President Obama https://t.co/Yy9JeoCN2I"

[[5]]
[1] "BarackObama: In the weekly address, President Obama speaks about taking steps to modernize our unemployment insurance system. https://t.co/fMYh94fg1w"

[[6]]
[1] "BarackObama: President Obama announced a pause on new coal leases on federal lands—a step forward in the fight to #ActOnClimate: https://t.co/boMQbHvImy"

[[7]]
[1] "BarackObama: LIVE: President Obama is answering questions from @smartereveryday, @sWooZ1e, and @ingridnilsen. https://t.co/OOb1kkF5r7 #YouTubeAsksObama"

[[8]]
[1] "BarackObama: Tune in at 2:15 p.m. ET to watch President Obama do an interview with three popular YouTube creators: https://t.co/lkj0ZdiRBM"

[[9]]
[1] "BarackObama: America now has the lowest uninsured rate on record thanks to #Obamacare. Repealing it doesn't make sense. https://t.co/qBMYaHA1pk"

参考にしたサイト:
Twitter Authentication with R - ThinkToStart