有没有一种方法可以基于for循环中匹配的文件名在r中创建列表？

# 设置文件夹路径和匹配的文件名模式
folder_path <- "文件夹路径"
file_pattern <- "匹配的文件名模式"

# 创建一个空列表
file_list <- list()

# 获取文件夹中的所有文件名
file_names <- list.files(folder_path)

# 遍历文件名，并将匹配的文件名添加到列表中
for (file_name in file_names) {
  if (grepl(file_pattern, file_name)) {
    file_path <- file.path(folder_path, file_name)
    file_list <- c(file_list, list(file_path))
  }
}

# 打印列表中的文件路径
print(file_list)