Überprüfen Sie das Vorhandensein eines Verzeichnisses und erstellen Sie es, wenn es nicht vorhanden ist

Ich schreibe oft R-Skripte, die viel Ausgabe erzeugen. Ich finde es sauberer, diese Ausgabe in ein eigenes Verzeichnis zu stellen. Was ich unten geschrieben habe, prüft, ob ein Verzeichnis vorhanden ist, und verschiebt es, oder erstellt das Verzeichnis und verschiebt es dann. Gibt es einen besseren Weg, dies zu erreichen?

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

}

Verwendung showWarnings = FALSE:

dir.create(file.path(mainDir, subDir), showWarnings = FALSE)
setwd(file.path(mainDir, subDir))

dir.create()stürzt nicht ab, wenn das Verzeichnis bereits vorhanden ist, sondern druckt nur eine Warnung aus. Wenn Sie also mit Warnungen leben können, ist es kein Problem, dies einfach zu tun:

dir.create(file.path(mainDir, subDir))
setwd(file.path(mainDir, subDir))

Ab dem 16. April 2015 gibt es mit der Veröffentlichung R 3.2.0eine neue Funktion namens dir.exists(). Um diese Funktion zu verwenden und das Verzeichnis zu erstellen, falls es nicht vorhanden ist, können Sie Folgendes verwenden:

ifelse(!dir.exists(file.path(mainDir, subDir)), dir.create(file.path(mainDir, subDir)), FALSE)

Dies wird zurückgegeben, FALSEwenn das Verzeichnis bereits vorhanden ist oder nicht erstellt werden kann und TRUEwenn es nicht vorhanden war, aber erfolgreich erstellt wurde.

Beachten Sie, dass Sie einfach überprüfen können, ob das Verzeichnis vorhanden ist

dir.exists(file.path(mainDir, subDir))

In Bezug auf die allgemeine Architektur würde ich die folgende Struktur in Bezug auf die Verzeichniserstellung empfehlen. Dies deckt die meisten potenziellen Probleme ab, und alle anderen Probleme bei der Verzeichniserstellung werden vom dir.createAufruf erkannt .

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
}

Beachten Sie auch, dass ~/fooein Aufruf von dir.create('~/foo/bar')fehlschlägt , wenn er nicht vorhanden ist , wenn er nicht vorhanden ist recursive = TRUE.

Hier ist die einfache Prüfung , und erstellt das Verzeichnis , wenn nicht vorhanden ist :

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

Die Verwendung von file.exists () zum Testen der Existenz des Verzeichnisses ist ein Problem im ursprünglichen Beitrag. Wenn subDir den Namen einer vorhandenen Datei enthält (und nicht nur einen Pfad), gibt file.exists () TRUE zurück, aber der Aufruf von setwd () schlägt fehl, da Sie das Arbeitsverzeichnis nicht so einstellen können, dass es auf eine Datei verweist.

Ich würde die Verwendung von file_test (op = "- d", subDir) empfehlen, das "TRUE" zurückgibt, wenn subDir ein vorhandenes Verzeichnis ist, aber FALSE, wenn subDir eine vorhandene Datei oder eine nicht vorhandene Datei oder ein nicht vorhandenes Verzeichnis ist. Ebenso kann die Suche nach einer Datei mit op = "- f" durchgeführt werden.

Wie in einem anderen Kommentar beschrieben, ist das Arbeitsverzeichnis außerdem Teil der R-Umgebung und sollte vom Benutzer gesteuert werden, nicht von einem Skript. Skripte sollten im Idealfall die R-Umgebung nicht ändern. Um dieses Problem zu beheben, verwende ich möglicherweise options (), um ein global verfügbares Verzeichnis zu speichern, in dem ich meine gesamte Ausgabe haben möchte.

Betrachten Sie daher die folgende Lösung, bei der someUniqueTag nur ein vom Programmierer definiertes Präfix für den Optionsnamen ist, sodass es unwahrscheinlich ist, dass bereits eine Option mit demselben Namen vorhanden ist. (Wenn Sie beispielsweise ein Paket mit dem Namen "filer" entwickelt haben, können Sie filer.mainDir und filer.subDir verwenden.)

Der folgende Code wird verwendet, um Optionen festzulegen, die später in anderen Skripten verwendet werden können (wodurch die Verwendung von setwd () in einem Skript vermieden wird), und um den Ordner bei Bedarf zu erstellen:

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

In jedem nachfolgenden Skript, das eine Datei in subDir bearbeiten muss, können Sie dann Folgendes verwenden:

mainDir = getOption(someUniqueTag.mainDir)
subDir = getOption(someUniqueTag.subDir)
filename = "fileToBeCreated.txt"
file.create(file.path(mainDir, subDir, filename))

Diese Lösung verlässt das Arbeitsverzeichnis unter der Kontrolle des Benutzers.

Ich hatte ein Problem mit R 2.15.3, bei dem beim Versuch, eine Baumstruktur rekursiv auf einem freigegebenen Netzlaufwerk zu erstellen, ein Berechtigungsfehler angezeigt wurde.

Um diese Kuriosität zu umgehen, erstelle ich die Struktur manuell.

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

mkdirs("H:/foo/bar")

Einzeiler:

if (!dir.exists(output_dir)) {dir.create(output_dir)}

Beispiel:

dateDIR <- as.character(Sys.Date())
outputDIR <- file.path(outD, dateDIR)
if (!dir.exists(outputDIR)) {dir.create(outputDIR)}

Um herauszufinden, ob ein Pfad ein gültiges Verzeichnis ist, versuchen Sie:

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

file.info kümmert sich nicht um einen Schrägstrich am Ende.

file.existsUnter Windows schlägt ein Verzeichnis fehl, wenn es mit einem Schrägstrich endet und ohne dieses erfolgreich ist. Dies kann also nicht verwendet werden, um festzustellen, ob ein Pfad ein Verzeichnis ist.

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