如何从这个twitteR输出创建一个表？

Question

我想用这个twitteR输出创建一个表。这是我的代码：

datafile <- read.csv(file="~Path/Workbook.csv")

data <-data.frame(lapply(datafile$recordName,as.character),stringsAsFactors = F)

x <- lapply(data[1:30], function(x) searchTwitter(x,n=5,since="2016-01-01"))

write.csv(x, file = "x.csv")

我收到以下错误：

Error in as.data.frame.default(x[[i]], optional = TRUE) : 
cannot coerce class "structure("status", package = "twitteR")" to a data.frame

我想我明白发生了什么。数据文件$ recordName中的行产生不同数量的＆＃34; searchTwitter＆＃34;结果（例如，某些记录名称在Twitter上比其他记录名称更频繁出现）。我希望在我的CSV中看到的是a table with a column with all of the records and repeating if necessary。我不确定如何实现这一点。

我不确定这是否可行，任何事情都会有所帮助。我很高兴能够将这些信息导出为干净的表格。

这是一个可重复的例子：

R档案：

library(twitteR)
consumer_key <- " "
consumer_secret <- " "
access_token <- " "
access_secret <- " "
setup_twitter_oauth(consumer_key, consumer_secret, access_token, access_secret)

datafile <- read.csv(file="/path/Workbook4.csv")
data <- data.frame(datafile$recordName, stringsAsFactors = F)
data <-data.frame(lapply(datafile$recordName,as.character),stringsAsFactors = F)
datafile

x <- lapply(data[1:4], function(x) searchTwitter(x,n=5,since="2016-01-01"))

x

write.csv(x, file = "x.csv")

Workbook4.csv

recordName,info
Spiderman 2,movie
Dodgers,mlb
blahblaheoi,random
Trump,pol