R 遍历目录下所有子目录中的某类文件

?

1 2 3 4 5 6 7 8 9 10 11

testvcfdir="/jdfssz1/ST_HEALTH/P18Z10200N0124/qdNB/" testvcfList <- list.files(testvcfdir, pattern = "*.genotype.vcf.gz$",                              include.dirs = FALSE, full.names = TRUE, recursive = TRUE) test_vcf_sh <- c() content<-"" for (vcfFile in testvcfList) {   sampleId <- unlist(str_split(basename(vcfFile),pattern = "\\*"))[[1]]   content<-append(test_vcf_sh,paste("sh /jdfssz1/ST_HEALTH/P21Z10200N0047/lizhichao/zbolt_test/process/script/concordance.sh",vcfFile,sampleId,sep=" "))   } cat(test_vcf_sh,file="./run_conincidence,sh",sep="\n")

basename() 保留文件名　　

cat 可以输出文本，还可以存储文本/向量