Question

我想使用一个csv文件，列出我想要从一个文件夹复制到另一个文件夹的文件名。 'from'文件夹包含一些我不想复制的文件，以及我想要复制的文件。我有一个csv文件，其中包含我想要复制的文件名列表。每个文件都包含多个扩展名（.sid，.xml等），我希望复制文件的所有组件。使用stringr等库来帮助完成任务没有问题。

是否有人已经编写了一个光滑的功能来处理这项任务？

这是我有脚本的开头......

> library (stringr)
> 
> copy_from <- "c:/Temp/test/copy_from/"
> copy_to <- "c:/Temp/test/copy_to/"
> index <- read.csv ("c:/Temp/test/index.csv",header=T)
> index$filename <- as.character(index$filename) #need to convert field to character for susbstr to work
> index$name <- substr(index$filename,1,nchar(index$filename)-4) #now I have a new column with only the filename and not the extension
> index
             filename            name
1   voya_20140721.SID   voya_20140721
2   voya_20140801.SID   voya_20140801
3 voya_20140801_2.SID voya_20140801_2
> listfiles <- list.files (copy_from)
> listfiles
 [1] "voya_20140710.SID"         "voya_20140710.xml"         "voya_20140721.SID"         "voya_20140721.SID.aux.xml" "voya_20140721.xml"         "voya_20140801.SID"        
 [7] "voya_20140801.SID.aux.xml" "voya_20140801.xml"         "voya_20140801_2.SID"       "voya_20140801_2.xml"

这是标识我想复制的文件的数据框......

index <- structure(list(filename = c("voya_20140721.SID", "voya_20140801.SID", 
"voya_20140801_2.SID"), name = c("voya_20140721", "voya_20140801", 
"voya_20140801_2")), .Names = c("filename", "name"), row.names = c(NA, 
-3L), class = "data.frame")

-cherrytree

使用R和一个列出要复制的文件名的csv文件将文件从一个文件夹复制到另一个文件夹

0 个答案: