如何将多个子文件夹中的多个fasta文件导入列表列表

Question

我有几个子文件夹（“ C1”，“ C2”，“ C3”），每个子文件夹都包含四个fasta文件。
我想导入此文件，以便每个子文件夹都是列表的一个元素，然后每个元素应包含四个单独的元素，一个用于对应子文件夹中的每个fasta文件。

直到现在，我仅使用以下命令将多个fasta文件直接导入列表中：

library(Biostrings)
temp = list.files(pattern="*.fasta")
myfiles = lapply(temp, readDNAStringSet)

但是我真的不知道如何从多个子文件夹中读取它们并将这些子文件夹用作上级列表元素。
我希望我的意思是可以理解的。