Rstudio将数据帧写入多个excel文件和工作表

Question

我正在尝试根据帐户名称和货币将数据框写入多个文件和工作表。例如 帐户Ccy Ab11165 GBP Ab11179 USD F244144 AUD Ab11165 USD

我尝试过以下操作来创建文件名，但创建它们的速度非常慢有没有更好/更快的方法来做到这一点我也不知道如何为每种货币编写工作表这是什么我现在有。

 for(cur in 1:length(ccy)){
    for(an in 1:length(acn)){

    df=sqldf(paste("select * from df where CCY='",ccy[cur],"' and  accounts='",acn[aaa],"'",sep = ""))
       if(length(df[,1])>0){          
    wb <- writeWorksheetToFile (paste(folder,acn[aaa],".xlsx",sep=""), data = df,sheet = ccy[ccc],startRow = 1,startCol=1, header=TRUE)
    }}}

期望我应该有3个文件，并且工作表名称应该包含相关的货币，但是使用XLConnect在编写文件时似乎非常慢，并且无法正确使用currenct元素。