迴路的每個子文件夾[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("../") 
}