R使用循环在父目录下查找文件夹

Question

我有一个父文件夹和两级子目录，我正在尝试在第二级文件夹下找到第三级文件夹，结构是这样的

父文件夹 --> 1 级

经理文件夹：Tom / Jerry / Nancy 等 --> 2 级

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

例如父文件夹/Tom/A公司

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

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 )]