如何循环遍历不同目录下的文件

我想循环多个文件并对它们应用一个函数。问题是这些文件都位于不同但名称相似的目录中。途径模式相似，但数量根据其所属的家族而变化。

例如，我的代码是这样写的：

for(i in 1:numfiles) {
    olddata <- read.table(paste("/home/smith/Family", i, "/Family", i, ".txt", sep="\t"),
                          header=T)      
    # FUNCTION GOES HERE

    write.table(newdata,
                paste("/home/smith/Family", i, "/Family", i, "test.txt",
                      sep = ",", quote=F, row.names=F)
}

我遇到的问题是家庭号码不按数字顺序排列。有些仅标有数字（例如：2），其他人则在该号码后附加一个字母（例如：1a)

在每个家庭子目录（即家庭i）中，我想调用同一个文件（文件名完全相同，但数字（i）根据它所指的家庭而改变）。我想循环这些特定的文件。例如...对于家庭 1a，文件位于：“/home/smith/Family1a/Family1a.txt”，但对于家庭 2，文件位于：“/home/smith/Family2/Family2.txt”。

另外，R 不喜欢我使用numfiles.

看一下?list.files and ?dir, e.g.:

files <- list.files("/home/smith", pattern="Family[[:alnum:]]+.txt", recursive=TRUE, full.names=TRUE)

for (currentFile in files) {
  olddata <- read.table(currentFile, header=TRUE)
  ## some code
  write.table(newdata, file=sub(pattern=".txt$", replacement="test.txt", x=currentFile))
}

Or:

dirs <- dir("/home/smith", pattern="Family[[:alnum:]]+$")

fileName <- file.path(dirs, paste0(dirs, ".txt"))
testFileName <- file.path(dirs, paste0(dirs, "_test.txt"))

for (i in seq(along=fileName))

  olddata <- read.table(fileName[i], header=TRUE)
  ## some code
  write.table(newdata, file=testFileName[i])
}