使用 fread 找不到文件

Question

我有一些基本代码用于从共享相同文件格式的文件夹中读取多个文件。每个文本文件本身都包含一两个句子；没有列、标题或类似的东西。

我最初使用 read.table 来执行此操作，但在进行了一些阅读之后，特别是查看了 this recent post，我想我是否可以使用 fread 让事情变得更快一些。

library(data.table)

files <- list.files(path = "C:/Documents", pattern = "*.txt")

readdata <- function(x)
{
    mydata <- fread(x, sep=" ")
    return(mydata)
}

all.files <- lapply(files, readdata)
final.data <- rbindlist(all.files)

当我运行此代码时，我收到以下错误：

Error in fread(x, sep = " ") : File not found: 1.txt

1.txt 是文件夹中的第一个文件。谁能弄清楚这是为什么？路径文件夹是正确的（我将上面的文件夹更改为通用的放在此处）所以我似乎看不出问题出在哪里。

Answer 1

你必须指定文件的路径：

path <- "C:/Documents"

readdata <- function(x)
{
  f <- file.path(path, x)
  mydata <- fread(f, sep=" ")
  return(mydata)
}

---

另一种选择是将list.files 与参数full.names = TRUE 一起使用。这将返回文件名及其路径。

files <- list.files(path = "C:/Documents", pattern = "*.txt", full.names = TRUE)

readdata <- function(x)
{
    mydata <- fread(x, sep=" ")
    return(mydata)
}