使用循环查找父dir下的文件夹。

Question

我有一个父文件夹和两个级别的子目录，我试图找到第三级文件夹，在第二级文件夹下，结构如下所示

父文件夹->级别1

经理文件夹:汤姆/曾傑瑞/南希等->2级

公司文件夹:A公司/B公司/C公司等->3级

例如父文件夹/汤姆/公司A

所以我想知道A公司是在哪个经理的文件夹下，因为A公司并不总是在Tom下面，所以dir路径每个月都在变化。目前，我正在考虑下面的代码，但希望有一个更优雅的方法来做。谢谢!

mgr = c("Tom", "Nancy", "Jerry")
for i in length(mgr) { 
if(dir.exist(paste0("parent folder/", mgr[i],"/company A")) {the rest code}
else{i = i+1
if(dir.exist(paste0("parent folder/", mgr[i],"/company A") {the rest code}
else{i=i+1
if(dir.exist(paste0("parent folder/", mgr[i],"/company A") {the rest code}}}

Answer 1

#create a vector with all subfolders from "parent folder/" 
dirs <- list.dirs(path = "parent folder/", full.names = TRUE, recursive = TRUE)
#show the subdirectories that contain "company A"  in it's path
dirs[ grepl( "company A", dirs )]