将部分文件名与完整文件名匹配答案

【问题标题】：Match partial file name to full file name将部分文件名与完整文件名匹配
【发布时间】：2018-03-10 19:16:17
【问题描述】：

我有如下命名的文件列表

csv_files<-list.files(path, pattern =‘.csv’)

1001_2017_01_02#19_30_24.csv 1002_2018_03_01#20_30_54.csv...

格式本质上是：id _year_month_day#hour_min_sec.csv。

我已经从文件名中删除了 ID 和日期，以便使用 Neardate 函数进行排序。最终我有一个包含前缀 1001_2017_01_02 而不是完整文件名的数据框。本质上，我想将最终数据帧中的部分文件名与完整文件名匹配，然后将匹配的文件复制到新路径。

任何 cmets 都会有所帮助，谢谢。

【问题讨论】：

标签： r file-copying name-matching

【解决方案1】：

下面的代码未经测试，因为我的磁盘上没有这些文件，也没有新路径。
我会做一些类似的事情

csv_files <- c("1001_2017_01_02#19_30_24.csv", "1002_2018_03_01#20_30_54.csv")
dat <- data.frame(prefix = c("1001_2017_01_02", "1002_2018_03_01"))

lapply(dat$prefix, function(x) {
    fl <- csv_files[grep(x, csv_files)]
    file.copy(from = fl, to = newpath)
})

【讨论】：