在r函数

Question

我正在尝试编写一个将输出写入该函数中的csv文件的函数。我试图将csv文件定向到标有＆＃34; test＆＃34;的文件夹。在工作目录中。当我运行该功能然后使用它，没有任何反应。

这是功能：

SCTble <- function(dat, datname) {
y<-ddply(dat, .(Species, Country), summarize, Pounds = 
round(sum(Pounds), 0 ), Dollars = round(sum(Dollars),0), UnitValue = 
round((Dollars/Pounds),2))
y<-y%>%
mutate('Share Volume' = round(Pounds/sum(Pounds)*100,2))%>%
mutate('Share Value'= round(Dollars/sum(Dollars)*100,2))
datname<-as.data.frame(y)
return(datname)
write.csv(y, paste("test/",datname, ".csv"), row.names= TRUE)
  }

这就是我使用函数的方法：

FshPelExcurSC <- SCTble(FshPelExcur,"FshPelExcurSC")

当我返回并在函数外单独尝试代码时，它可以工作，并且csv文件出现在我指定的文件夹中。但出于某种原因，当我调用该函数时，没有任何反应。该函数确实创建了表格，它在我的全局环境中显示，它在我喜欢的文件夹中不会显示为csv。

我有很多表要做，我想用函数在写入csv文件时调用的第二个参数来命名它们。

在SO问答中我找不到解决这个特殊问题的任何东西，而且有点亏本。