如何一次从多个文件夹导入多个.csv文件并跳过行？

Question

假设我的工作目录中有三个文件夹。每个文件夹都包含另一个文件夹（我知道很讨厌），该文件夹是根据一周中收集数据的日期命名的。在这些文件夹中的每个文件夹中，都有一个个人的.csv文件，格式相同，均包含要分析的数据。我希望以data.frame的形式读取目录中的每个文件夹，并绑定一周中各天的行以及每个人。

例如，先读取06052018 / Monday / PersonA.csv，然后读取06052018 / Monday / PersonB.csv，然后读取06052018 / Tuesday / PersonA.csv，并在此data.frame中创建两个新列，其中包含有关每个文件对应信息的信息星期几和人。

我知道我可以读取多个.csv文件并使用以下命令为文件名创建一个新列：

library(tidyverse)

read_plus <- function(flnm) {
  read_csv(flnm) %>% 
    mutate(filename = flnm)
}

tbl_with_sources <-
  list.files(pattern = "*.csv", 
             full.names = F) %>% 
  map_df(~read_plus(.))

对于文件夹中的多个文件夹和文件，我如何扩展此功能？

谢谢。