Topsy Otter apiを使用してツイートを取得しようとしているので、論文のデータマイニングを実行できます。
これまでのところ、私は持っています:
library(RJSONIO)
library(RCurl)
tweet_data <- getURL("http://otter.topsy.com/search.json?q=PSN&mintime=1301634000&perpage=10&maxtime=1304226000&apikey=xxx")
fromJSON(tweet_data)
これは問題なく動作します。ただし、ここで、このファイルから「content」と「trackback_date」の2つの詳細だけを返したいと思います。方法がわからないようです。いくつかの例を組み合わせてみましたが、必要なものを抽出できませんでした。
これが私がこれまでに試したことです:
trackback_date <- lapply(tweet_data$result, function(x){x$trackback_date})
content <- lapply(tweet_data$result, function(x){x$content})
どんな助けでも大歓迎です、ありがとう。
編集 私も試しました:
library("rjson")
# use rjson
tweet_data <- fromJSON(paste(readLines("http://otter.topsy.com/search.json?q=PSN&mintime=1301634000&perpage=10&maxtime=1304226000&apikey=xxx"), collapse=""))
# get a data from Topsy Otter API
# convert JSON data into R object using fromJSON()
trackback_date <- lapply(tweet_data$result, function(x){x$trackback_date})
content <- lapply(tweet_data$result, function(x){x$content})