每个子文件夹R的循环

Question

这是我的代码：

setwd("folder/subfolder1")
Data <- ReadAffy()
eset<-rma(Data)
write.expres(eset, file="subfolder1.txt")

我的文件夹中有很多子文件夹，我想创建一个脚本来处理循环中的所有子文件夹，并创建名为子文件夹的文本文件。

我该怎么做？

Answer 1

这个怎么样：

# get into the parent directory
setwd("folder")
# loop through the sub directories (use [-1] to lop off the current directory: ".")
for (dir in list.dirs()[-1]) {
    # get into the sub directory
    setwd(dir)
    # do the do
    Data <- ReadAffy()
    eset<-rma(Data)
    # build the file name by pasting ".txt" on the end of the directory name
    write.expres(eset, file=paste(dir, "txt", sep="."))
    # pop back up to the parent directory
    setwd("../")
}