当前位置：网站首页>[R language] Normalize and organize files into folders of various file types

[R language] Normalize and organize files into folders of various file types

2022-08-09 06:01:00 【Bionic bug】

Categorize messy file types

# Categorize messy file types
getwd() # 当前路径
# 查看所有文件
(allfiles=list.files(recursive = TRUE))
  
split(allfiles,fdrop = T)

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

# Create a folder with the corresponding suffix
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])
}