ディレクトリの存在を確認し、存在しない場合は作成します

多くの場合、多くの出力を生成する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))

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

一般的なアーキテクチャの観点から、ディレクトリの作成に関しては、次の構造をお勧めします。これはほとんどの潜在的な問題をカバーし、ディレクトリ作成に関するその他の問題は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。

以下は簡単なチェックで、存在しない場合は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!")
}

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

このソリューションでは、作業ディレクトリがユーザーの制御下に置かれます。

R 2.15.3で問題がありました。共有ネットワークドライブでツリー構造を再帰的に作成しようとすると、アクセス許可エラーが発生しました。

この奇妙さを回避するために、手動で構造を作成します。

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

mkdirs("H:/foo/bar")

一発ギャグ：

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

パスが有効なディレクトリであるかどうかを確認するには、次のようにしてください。

file.info(cacheDir)[1,"isdir"]

file.info 最後のスラッシュは気にしません。

file.existsWindowsでは、ディレクトリがスラッシュで終わっている場合、そのディレクトリで失敗し、スラッシュなしで成功します。したがって、これはパスがディレクトリかどうかを判断するために使用することはできません。

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"]