我正在运行以下代码块 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 服务器中的数据量很大吗？在这方面的任何帮助将不胜感激。先感谢您。