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

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

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

---

csv\u文件下面的代码未经测试，因为我的磁盘上没有这些文件，也没有新的路径。

我会按照

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

csv\u文件