我经常写一些生成大量输出的R脚本。我认为将这些输出放在它们自己的目录中会更加清晰。我编写了下面的代码，它会检查文件夹是否存在并进入该文件夹，或者创建该文件夹然后再进入。有更好的处理方法吗？
mainDir <- "c:/path/to/main/dir"
subDir <- "outputDirectory"
if (file.exists(subDir)){
setwd(file.path(mainDir, subDir))
} else {
dir.create(file.path(mainDir, subDir))
setwd(file.path(mainDir, subDir))
}
使用 showWarnings = FALSE：
dir.create(file.path(mainDir, subDir), showWarnings = FALSE)
setwd(file.path(mainDir, subDir))
dir.create()不会因为目录已经存在而崩溃，只会输出警告信息。如果您可以接受看到警告信息，那么这样做就没有问题：
dir.create(file.path(mainDir, subDir))
setwd(file.path(mainDir, subDir))
showWarnings = FALSE 时要注意，这也会隐藏其他警告，例如目录无法创建。 - zelanixdir.create("test1/test2/test3/", recursive=TRUE)？ - dean.suppressWarnings(<statement>) 只会抑制该语句产生的警告。 - Ram RS从2015年4月16日起，随着R 3.2.0的发布，有一个名为dir.exists()的新功能。要使用此功能并在目录不存在时创建目录，您可以使用以下代码：
ifelse(!dir.exists(file.path(mainDir, subDir)), dir.create(file.path(mainDir, subDir)), FALSE)
如果该目录已经存在或无法创建，将返回FALSE，如果该目录不存在但成功创建，则返回TRUE。
请注意，如果您只想检查目录是否存在，可以使用
dir.exists(file.path(mainDir, subDir))
ifelse()并不是一个好的实践。 - Lionel Henry| 而不是标量的 ||。它可以工作，但是这样做是不好的做法。 - Lionel Henry|来编写我的if语句是错误的，这是因为矢量化技术导致有时候不能使用||吗？我知道这离题了，但我太渴望找出答案了。我一定会去阅读更多关于矢量化技术的内容。谢谢。 - Basifelse，那么最佳实践方法是什么？ - KillerSnail这是一个简单的检查，如果目录不存在则创建目录：
## Provide the dir name(i.e sub dir) that you want to create under main dir:
output_dir <- file.path(main_dir, sub_dir)
if (!dir.exists(output_dir)){
dir.create(output_dir)
} else {
print("Dir already exists!")
}
一句话概括：
if (!dir.exists(output_dir)) {dir.create(output_dir)}
示例：
dateDIR <- as.character(Sys.Date())
outputDIR <- file.path(outD, dateDIR)
if (!dir.exists(outputDIR)) {dir.create(outputDIR)}
就一般架构而言，我建议在目录创建方面采用以下结构。这可以涵盖大多数潜在问题，任何其他目录创建问题都将通过dir.create调用检测到。
mainDir <- "~"
subDir <- "outputDirectory"
if (file.exists(paste(mainDir, subDir, "/", sep = "/", collapse = "/"))) {
cat("subDir exists in mainDir and is a directory")
} else if (file.exists(paste(mainDir, subDir, sep = "/", collapse = "/"))) {
cat("subDir exists in mainDir but is a file")
# you will probably want to handle this separately
} else {
cat("subDir does not exist in mainDir - creating")
dir.create(file.path(mainDir, subDir))
}
if (file.exists(paste(mainDir, subDir, "/", sep = "/", collapse = "/"))) {
# By this point, the directory either existed or has been successfully created
setwd(file.path(mainDir, subDir))
} else {
cat("subDir does not exist")
# Handle this error as appropriate
}
请注意，如果~/foo不存在，则调用dir.create('~/foo/bar')将失败，除非您指定recursive = TRUE。
我在使用 R 2.15.3 递归地创建共享网络驱动器上的树结构时遇到了权限错误的问题。
为了解决这个问题，我手动创建了该结构；
mkdirs <- function(fp) {
if(!file.exists(fp)) {
mkdirs(dirname(fp))
dir.create(fp)
}
}
mkdirs("H:/foo/bar")
在原始帖子中，使用file.exists()检测目录是否存在是一个问题。如果subDir包含现有文件的名称（而不仅仅是路径），file.exists()会返回TRUE，但是对setwd()的调用将失败，因为您无法将工作目录设置为指向文件。
我建议使用file_test(op="-d", subDir)来检查目录是否存在，如果subDir是现有目录，则返回"TRUE"，但如果subDir是现有文件或不存在的文件或目录，则返回FALSE。同样，可以通过op="-f"检查文件是否存在。
另外，如另一条评论所述，工作目录是R环境的一部分，应该由用户控制，而不是脚本。理想情况下，脚本不应更改R环境。为解决此问题，我可能会使用options()来存储全局可用的目录，以便在其中输出所有内容。
因此，请考虑以下解决方案，其中someUniqueTag只是程序员定义的选项名称前缀，这使得具有相同名称的选项已经存在的可能性较小。（例如，如果您正在开发名为"filer"的软件包，则可以使用filer.mainDir和filer.subDir）。
以下代码将用于设置可供其他脚本稍后使用的选项（从而避免在脚本中使用setwd()），并在必要时创建文件夹：
mainDir = "c:/path/to/main/dir"
subDir = "outputDirectory"
options(someUniqueTag.mainDir = mainDir)
options(someUniqueTag.subDir = "subDir")
if (!file_test("-d", file.path(mainDir, subDir)){
if(file_test("-f", file.path(mainDir, subDir)) {
stop("Path can't be created because a file with that name already exists.")
} else {
dir.create(file.path(mainDir, subDir))
}
}
然后，在需要操作subDir中的文件的任何后续脚本中，您可以使用类似以下的内容：
mainDir = getOption(someUniqueTag.mainDir)
subDir = getOption(someUniqueTag.subDir)
filename = "fileToBeCreated.txt"
file.create(file.path(mainDir, subDir, filename))
这个解决方案使工作目录完全由用户控制。
我知道这个问题是一段时间以前问的，但如果有用的话，here包对于不必引用特定文件路径和使代码更可移植非常有帮助。它将自动将您的工作目录定义为您的.Rproj文件所在的目录，因此以下内容通常就足够了，无需定义到您的工作目录的文件路径：
library(here)
if (!dir.exists(here(outputDir))) {dir.create(here(outputDir))}
我创建了一个名为hutils的包，其中包含函数provide.dir(path)和provide.file(path)，用于检查位于path的目录/文件是否存在，如果不存在则创建它们。
file.info(cacheDir)[1,"isdir"]
file.info不关心路径末尾的斜杠。
在Windows上，如果目录以斜杠结尾，则使用file.exists将失败，在没有斜杠的情况下将成功。因此，无法使用它来确定路径是否为目录。
file.exists("R:/data/CCAM/CCAMC160b_echam5_A2-ct-uf.-5t05N.190to240E_level1000/cache/")
[1] FALSE
file.exists("R:/data/CCAM/CCAMC160b_echam5_A2-ct-uf.-5t05N.190to240E_level1000/cache")
[1] TRUE
file.info(cacheDir)["isdir"]
dir.create() 部分之外，这个答案有什么问题吗？这些语句是错误的还是被认为对解决问题没有帮助？ - mschilli
setwd()函数，因为它会破坏使用工作目录的原本设计意图，这样做会使你的代码难以在不同计算机间移植。 - hadley.bat文件，最终用户将永远不需要修改它。 - Chasewrite.table(file = "path/to/output/directory", ...)的东西来替换我的setwd()调用吗？ - Chaseout_dir <- "path/to/output/directory"参数化，然后使用write.table(file = file.path(out_dir,"table_1.csv"), ...)。甚至可以使用out_file <- function(fnm) file.path("path/to/output/directory", fnm)，然后使用write.table(file = out_file("table_1.csv"), ...)（我在使用网络驱动器时使用类似的方法）。 - Marek