是否有一个R函数可以让我根据相同的字符将列表分组在一起，但如果有子目录，它会将它们分开

# 创建一个包含文件路径的列表
file_list <- c("path/to/file1.txt", "path/to/file2.txt", "path/to/subdir/file3.txt", "path/to/subdir/file4.txt")

# 定义一个函数，用于提取文件所在的目录
get_directory <- function(file_path) {
  dirname(file_path)
}

# 使用split()函数将列表按照目录进行分组
grouped_list <- split(file_list, sapply(file_list, get_directory))

# 打印分组后的列表
print(grouped_list)