我正在尝试使用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'.我似乎无法弄清楚如何 - 我曾尝试将几个例子拼凑在一起,但无法提取我想要的东西.
这是我到目前为止所尝试的:
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})