创建具有扩展名和当前日期的新文件夹

Question

我想知道是否有人知道是否可以在 R 中创建一个新文件夹并自动将当前日期写入其中，例如新文件夹：“TEST_20140903”？这可能吗？

我试图做的是将我的输出（数千个图）移动到一个新文件夹中，然后每次我运行脚本时，当前日期都应该写在扩展中。

Answer 1

您可以将dir.create 与paste 和Sys.Date 结合使用，如下所示：

dir.create(paste("Test", Sys.Date(), sep = "_"))

如果您想切换到该目录，我建议将paste 的输出存储为字符向量，并在创建新目录后使用setwd。

演示：

x <- getwd()  ## I'm going to demo in a tempdir
setwd(tempdir())
list.dirs()
# [1] "."                                                 
# [2] "./downloaded_packages"                             
# [3] "./rs-graphics-16e13b20-59b3-4ef3-bdcd-02852b1ea576"
newdir <- paste("Test", Sys.Date(), sep = "_")
dir.create(newdir)
setwd(newdir)
list.dirs()
# [1] "."                                                 
# [2] "./downloaded_packages"                             
# [3] "./rs-graphics-16e13b20-59b3-4ef3-bdcd-02852b1ea576"
# [4] "./Test_2014-09-03"                                 
setwd(x)     ## Reset to original working directory

---

你总是可以创建一个像下面这样的函数，但要小心递归！

Today <- function(prefix = "Test") {
  newdir <- paste(prefix, Sys.Date(), sep = "_")
  dir.create(newdir)
  setwd(newdir)
}

这可以简单地使用Today() 调用，并会在您当前所在的任何目录中创建必要的目录并将您的工作目录设置为该新目录。