【R语言】把文件夹下的所有文件提取到特定文件夹

if(T){
# 【目的】把所有文件夹下的文件，全部提取到data
getwd() # 当前路径
# 查看所有文件
(allfiles=list.files(recursive = TRUE))
# 创建data文件夹
dir.create("data")
# 拷贝移动
file.copy(from = allfiles,to="data")

# 【提取特定的文件】
# 只提取csv的文件
(allfiles2=allfiles[grep(pattern=".csv$", allfiles)])
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14