如何在子目录的子文件夹上运行脚本？

Question

我需要你的帮助。 我试图通过子目录中的子文件夹运行R脚本。 我有一个父文件夹，其中包含我的脚本和我的输出文件夹（将保存我的输出）和其他包含我正在使用的脚本的文件夹以及我的数据文件夹。 我想将数据排序到数据文件夹中的多个文件夹中。然后，我希望我的脚本（位于“祖父母文件夹”中）获取这些子文件夹之一的数据并执行（包括将输出保存到子文件夹），获取下一个子文件夹并使用数据等等。 我知道如果所有文件夹都位于一个文件夹（2个级别）中，它应该可以工作，但是我不知道该怎么做3个文件夹级别。

从子文件夹列表中排除诸如输出文件夹之类的文件夹，以便脚本只忽略它们也应该起作用？

parent.folder <- "/R" # this has my script, my output folder, my data folder and so on

sub.folders <- list.dirs("R/data", recursive = T) # this has plenty of subfolders with my data

r.scripts <- file.path(parent.folder, "working_script.R")

# Run scripts in sub-folders 
for(i in sub.folders) {
  setwd(i)
  source(r.scripts)
}

# here comes the rest of my script 

如果整个块应该在脚本的开头等等，我不确定它是如何工作的。