【R语言】对文件进行归一化整理到各文件类型文件夹

把混乱的文件类型归类，到各个文件夹

# 把混乱的文件类型归类
getwd() # 当前路径
# 查看所有文件
(allfiles=list.files(recursive = TRUE))
  
split(allfiles,fdrop = T)

# 取文件的后缀
a=t(data.frame(strsplit(allfiles,split = "\\.")))
rownames(a)=NULL
b=unique(a[,2])

# 创建对应后缀的文件夹
for (i in b) {
  dir.create(i)
}
# 拷贝移动
(a=as.data.frame(a))
a[,3] <- allfiles

a2=a[order(a[,2]),];a2
a3=as.vector(a2[,3]);a3
b2=sort(a[,2]);b2
# 归类整理
for (i in seq_along(a3)) {
  file.copy(from = a3[i],to = b2[i])
}