使用 R 将文件复制粘贴到名称匹配的文件夹中

Question

我正在尝试将文件复制到具有匹配文件名的各种文件夹中。

这是文件名的摘录：

20201026_ABCD.txt
20201026_XYZ.txt
20201027_ABCD.txt
20201027_POR.txt
20201028_ABCD.txt
20201028_PQR.txt

我想创建仅包含上述文件中的日期组件的文件夹。根据下面的代码，我已经设法做到了这一点：

setwd("C:/Projects/TEST")
        
library(stringr)
        
filenames<-list.files(path = "C:/Projects/TEST", pattern = NULL)
        
#create a variable that contains all the desired filenames
foldernames.unique<-unique(str_extract(filenames,"[0-9]{1,8}"))
    
#create folders based on this variable
foldernames.unique<-paste("dates/",foldernames.unique,sep='')
lapply(foldernames.unique,dir.create,recursive = TRUE)

现在，如何将20201026_ABCD.txt and 20201026_XYZ.txt 复制到文件夹20201026 等等？

Answer 1

现在您只需要使用file.rename 来移动文件。首先，我将进行一些更改以捕获非唯一文件夹名称，这样我就不必重新整理它们。这个怎么样

srcfolder <- "C:/Projects/TEST"
filenames <- list.files(path = srcfolder, pattern = NULL)
        
#create a variable that contains the desired foldername for each file
foldernames <- file.path("dates", str_extract(filenames,"[0-9]{1,8}"))
foldernames.unique <- unique(foldernames)
    
#create folders based on unique values of variable
lapply(foldernames.unique, dir.create, recursive = TRUE)

# Now move files
file.rename(file.path(srcfolder, filenames), file.path(foldernames, filenames))

我们只是用file.path 构建文件名，这比paste() 更健壮一些