# 递归地列出所有文件
files <- list.files(path = ".", pattern = NULL, all.files = FALSE, full.names = TRUE, recursive = TRUE)
files
# 过滤出同时包含"pseudo"、"deg"和"rds"的文件
target_files <- grep("pseudo.*deg.*rds|deg.*pseudo.*rds|pseudo.*rds.*deg|deg.*rds.*pseudo|rds.*pseudo.*deg|rds.*deg.*pseudo", files, value = TRUE, ignore.case = TRUE)
target_files
# 将相对路径转换为绝对路径
absolute_paths <- normalizePath(target_files) ;absolute_paths
basename(absolute_paths)
final_dirs= stringr::str_split(string = absolute_paths,pattern = "/",simplify = TRUE)[,6] ;final_dirs