R的铁头王子

摸索着学R语言

批量读取文件夹中所有次级次次级文件，筛选并复制特定类型文件到新文件夹中

用了sapply()和file.copy()两种方法尝试,最后用sapply完成了。

file.copy()

#获得该目录下的文件夹名称
list.files(path = "D:/Tryone/T", recursive = T)  
#复制所有的子文件到新的文件夹
file.copy(list.files(path = "D:/Tryone/T", recursive = T), to = "D:/Bac", recursive = FALSE)

这个方法一开始可以用，但是反复几次之后只能获得list.files，第二步会出现warnings,由于找不到解决方法，就选了别的办法。
PS:出现“There were 48 warnings (use warnings() to see them)”要怎么查看呢？直接在代码执行区打warnings，然后敲回车吗？

sapply()

# 原始文件夹名(被复制的文件所在文件夹的存储路径)
oriDir <- "D:/Tryone/Try"

# 创建目标文件夹(当前工作目录下的test_choosed文件夹)
tarDir <- "D:/Tryone/Fung"

# 选取含特定字符创的文件（本例选取后缀为.gz的所有文件）
tobeCopy <- list.files(path = "D:/Tryone/Try", recursive = T, pattern="*.gz")

# 复制选中文件
sapply(tobeCopy,function(x){file.copy(paste(oriDir,x,sep="/"),tarDir)})

参考

知乎上的一位热心用户，感谢他：https://zhuanlan.zhihu.com/p/69956456。

PPS:斑鸠大哥走了，纪念一下。
PPPS:保持一份对大自然的敬畏吧。