用日期附加文件名

Question

我成功地将我的数据导出到.csv文件，并将我的计数变量i作为文件名，并希望将date()添加到我的文件名中以获得唯一标识符并且多次运行代码时文件不会被覆盖。 首先我认为space中的date()不允许我使用它，我将spaces替换为_，但它仍然拒绝许可。

date = date() View(date) date2 = gsub(" ", "_",date) write.csv(a, file=paste0("I:/C14Data/QualityControl/Johannes/", i, "_", date2, ".csv"))

我确信有一个简单的解决方案，但我找不到它！ 非常感谢提前。约翰内斯

Answer 1

我知道这个问题已经过时了，但我写了一个快速实用工具，会为你解决这个问题。它使用对文件名有效的默认字符将日期附加到字符串上（但如果您选择，则可以指定其他字符）。它可以在here或以下找到。

date.time.append <- function(str, sep = '_', date.format ="%Y_%m_%d_%H_%M_%S") {
stopifnot(is.character(str))
return(paste(str, format(Sys.time(), date.format), sep = sep))  
}