次のコード ブロックを 8 回実行していますが、3 つの異なる 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)
これを非常に大きなデータセットで実行しているため、各スクリプトで最初の 2 つの csv が作成された後、スクリプトで次のエラーが発生します。
Error in mysqlExecStatement(conn, statement, ...) :
RS-DBI driver: (connection with pending rows, close resultSet before continuing)
以前に小さなデータ セットに対して 3 つのスクリプトを実行したところ、問題なく動作しました。問題は、MySQL サーバー内のデータのサイズが大きいためですか? この点での助けは正当に評価されます。前もって感謝します。