Rで解析:TwitterのOAuthを取得するコマンド例


TwitterのOAuthを取得するコマンド例です。OAuthを取得しておけばAPIからTwitterのデータを取得することができます。ROAuthとhttrパッケージを利用した例です。

なお、データを取得するコマンドは後日紹介予定です。

実行コマンドはR version 3.2.2で確認しています。




Twitter APIの取得

Twitterのアカウントを取得していない方は、まずはアカウントを取得してください。
https://twitter.com/

Twitter Developersにアクセスし、赤枠の「Manage Your Apps」をクリックします。
https://dev.twitter.com/
no1

Twitter Appsが表示されます。赤枠の「Create New App」をクリックします。
no2

Create an applicationが表示されます。赤枠の項目を入力します。Websiteはhttp://karada-good.netで構いません。入力後、画面最下部青枠「Create your Twitter application」をクリックします。注意:applicationを作成するアカウントに電話番号が登録されていない場合はapplicationを作成するアカウントに電話番号を登録してください。
no3

問題がなければRdeTwitterの画面が表示されます。必要な情報を入手するために、赤枠「Keys and Access Tokens」をクリックします。
no4



表示される画面、赤枠のConsumer Key (API Key)、Consumer Secret (API Secret)、Access Token、Access Token Secretが解析に必要です。Access Token、Access Token Secretは画面下部にある「Create my access token」をクリックし作成してください。必要な情報はテキストなどにコピーして保存してください。
setting


実行コマンド

詳細はコメント、コマンドのヘルプを確認してください。

なお、httpパッケージでAPIを取得する際にはTwitte Application ManagementサイトよりSettingsのCallback URLに何かのURLを設定してください。例ではhttp://127.0.0.1:1410となっていますが、https://www.karada-good.net/でもAPIは取得できました。

httr

###ROAuthパッケージを利用したTwitterOAuthオブジェクトの作成#####
#パッケージのインストール
#install.packages("ROAuth")
library("ROAuth")
requestURL <- "https://api.twitter.com/oauth/request_token" accessURL <- "https://api.twitter.com/oauth/access_token" authURL <- "https://api.twitter.com/oauth/authorize" #API Keyの設定 APIKey <- "API Key" #API Secretの設定 APISecret <- "APISecret" #TwitterOAuthオブジェクトの作成 MyOauth <- OAuthFactory$new(consumerKey = APIKey, consumerSecret = APISecret, requestURL = requestURL, accessURL = accessURL, authURL = authURL) MyOauth$handshake(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")) ###httrパッケージを利用したTwitterOAuthオブジェクトの作成##### #パッケージのインストール #install.packages("httr") library("httr") #API Keyの設定 APIKey <- "API Key" #API Secretの設定 APISecret <- "APISecret" #TwitterAppsの指定 MyApp <- "アプリ名" #TwitterOAuthオブジェクトの作成 myapp <- oauth_app(MyApp, key = APIKey, secret = APISecret) MyOauth <- oauth1.0_token(oauth_endpoints("twitter"), myapp) ######## #作成したTwitterOAuthオブジェクトの保存 library("tcltk") setwd(paste(as.character(tkchooseDirectory(title = "保存ディレクトリを選択"), sep = "", collapse =""))) save(MyOauth, file= "TwitterOAuth.Oauth") #作成したTwitterOAuthオブジェクトの読み込み library("tcltk") load(paste(as.character(tkgetOpenFile(title = "TwitterOAuthオブジェクトを選択", filetypes = '{"TwitterOAuthオブジェクト" {"*.Oauth"}}', initialfile = "TwitterOAuth.Oauth")), sep = "", collapse ="")) [/code]


少しでも、あなたのウェブや実験の解析が楽になりますように!!

スポンサードリンク

関連コンテンツ


スポンサードリンク