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

Question

我有以下方式命名的文件列表

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 而不是完整文件名的数据框。本质上，我想将最终数据框中的部分文件名与完整文件名进行匹配，然后将匹配的文件复制到新路径。

任何意见都会有帮助谢谢。

Answer 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)
})

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

Match partial file name to full file name

r

name-matching

file-copying