1

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

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

任何评论都会有所帮助，谢谢。

4

1 回答 1

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)
})
于 2018-03-10T19:46:19.173 回答