使用lappy导入多个csv文件

Question

当我需要导入多个csv文件时，我使用：

Cluster <- lapply(dir(),read.csv)

以前设置工作直接当然，但今天不知何故它停止工作，并返回此错误消息：

 Error in read.table(file = file, header = header, sep = sep, quote = quote,  : 
  no lines available in input

我唯一不寻常的事情是手动设置Java目录，以便加载rJava。

知道发生了什么吗？