R：用脚本中的日期替换

Question

我们的想法是获取今天的日期，在运行时将其插入脚本代码中。

示例：

date <- Sys.Date()

#Create directory with today's date.
if(!file.exists("../<date>")) dir.create("../<date>")

如何在脚本中替换日期对象？功能？