我知道这个问题之前有人问过，但如果有用的话，here包确实有助于不必引用特定的文件路径，并使代码更具可移植性。它会自动将你的工作目录定义为你的.Rproj文件所在的目录，所以下面的文件通常就足够了，而不必定义你的工作目录的文件路径:

library(here)

if (!dir.exists(here(outputDir))) {dir.create(here(outputDir))}

下面是简单的检查，如果不存在就创建dir:

## 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!")
}

我在R 2.15.3中遇到了一个问题，当我试图在共享网络驱动器上递归地创建一个树结构时，我会得到一个权限错误。

为了解决这个问题，我手动创建了结构;

mkdirs <- function(fp) {
    if(!file.exists(fp)) {
        mkdirs(dirname(fp))
        dir.create(fp)
    }
} 

mkdirs("H:/foo/bar")

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))

一行程序:

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检测到。创建调用。

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。