在RMySQL上执行多个查询时出现连接错误

Question

我运行以下代码块8次，但在三个不同的R脚本中使用不同的查询。我已经与服务器建立了连接。

rs<-dbSendQuery(con,"select owner_name, owner_domain, count(*) as avg from kapsule,
recview_history where recview_history.vsrc='em' and 
recview_history.g_conf_id=kapsule.g_conf_id group by owner_name;")

d<-fetch(rs, n=0)
d$test<-apply(d,1,function(row) 1)
dp<-ddply(d, .(test), transform, percentile=ecdf(avg)(avg))
write.csv(dp, file="/tmp/creator_data/embeds.csv")
rm(rs)
rm(d)
rm(dp)

我在一个非常大的数据集上运行它，因此在每个脚本中创建前两个csv后，脚本会出现以下错误。

Error in mysqlExecStatement(conn, statement, ...) :
RS-DBI driver: (connection with pending rows, close resultSet before continuing)

当我在较小的数据集上运行三个脚本时，它们工作正常。问题是由于MySQL服务器中的数据量大吗？在这方面的任何帮助将得到适当的赞赏。提前谢谢。