根据单元格命名CSV

Question

我使用R并使用以下代码组合多个csv文件

> setwd("c:/r data/NASCAR/DK/S1") filenames <- list.files("c:/r
> data/NASCAR/DK/S1") TEMP_files_appended <-
> do.call("rbind",lapply(filenames, read.csv, header = TRUE))
> 
> setwd("C:/Users/Adam/Documents/NFL 2017/NASCAR/WINSTON/DK/CSV")
> write.csv(TEMP_files_appended, file ="Daytona2018.csv")`enter code here`

我的问题是我怎么能不必每次手动更改组合文件的名称Daytona2018.csv我可以引用其中一个csv文件中的单元格，例如名为AVG.CSV的文件单元格A1有文本“Daytona_FEB_18_2018”使组合文件的名称？

谢谢你的时间。