使用fread出现文件未找到错误

Question

使用fread出现文件未找到错误

3

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

最初我使用read.table来实现这个功能，但在阅读一些资料后，特别是查看了这篇最近的帖子之后，我想看看是否可以使用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是该文件夹中的第一个文件。有人能解释一下为什么吗？路径文件夹是正确的（我把上面的内容改成通用的放在这里），所以我似乎看不出问题在哪里。

- user1988898

你设置了 setwd("C:/Documents") 吗？ - Sven Hohenstein

是的。我刚刚尝试了getwd()，它显示了你所写的内容。 - user1988898

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Sven Hohenstein · Accepted Answer

您需要指定文件的路径：

path <- "C:/Documents"

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

另一个选项是使用带有参数full.names = TRUE的list.files。这将返回文件名和它们的路径。

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

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