我有一个函数readTochens，用于读取csv文件。我想循环几个文件。以下是代码，它不起作用。错误信息是No Such文件或方向。有什么建议吗？
dir <- c("allfac12","allfac13")
cpas <- c("cpas12","cpas13")
mainloop <- function(){
for(i in 1:length(dir)){
readTochens(as.name(dir[i]),as.name(cpas[i]))
}
}
mainloop()