如何通过循环遍历R中的目录来存储部分匹配的文件名？

Question

基本上这是一个for循环问题。我有my.dir个目录A, B and C。 A有文件apple.txt,orange.txt; B有文件tomato.txt, carrot.txt; C有文件cat.txt。我还有一个带有文件名但部分匹配名称的对象（myobject）。

my.dir<- c("A","B","C")
myobject<-c("app","ora","car","Jak")

现在我想使用for循环并存储A，B，C中与myobject中的名称匹配的所有文件并获取result文件。我可能不会使用某些目录，例如，目录C未被使用，因为我在此示例中没有从中提取任何内容。我还想跟踪myobject中找到但未找到的名称。例如，找不到Jak，找到了app,ora和car。

我想在'结果'中得到这样的东西：

 files    
 "apple.txt" "orange.txt" "carrot.txt"
found
"app" "ora" "car"
not found
"Jak"

这就是我的尝试：

all.file.names <- {} 
for (j in 1:length(my.dir)){
  all.bam.files <- list.files(my.dir[j])
  all.bam.files <- all.bam.files[grepl(".txt$",all.bam.files)]
  all.file.names <- grep(myobject, all.bam.files, value=TRUE) 
}