Ordnerverwaltung mit r: Überprüfen Sie das Vorhandensein eines Verzeichnisses und erstellen Sie es, wenn es nicht existiert.

Question

Ich finde oft, dass ich R-Skripte schreibe, die eine Menge Output generieren. Ich finde es sauberer, diesen Output in seinem eigenen Verzeichnis(zu) platzieren. Was ich unten geschrieben habe, überprüft die Existenz eines Verzeichnisses und wechselt dorthin oder erstellt das Verzeichnis und wechselt dann dorthin. Gibt es einen besseren Weg, dies anzugehen?

mainDir <- "c:/pfad/zum/hauptverzeichnis"
subDir <- "outputVerzeichnis"

if (file.exists(subDir)){
    setwd(file.path(mainDir, subDir))
} else {
    dir.create(file.path(mainDir, subDir))
    setwd(file.path(mainDir, subDir))

}

Answer 1

Verwenden Sie 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 existiert, es gibt nur eine Warnung aus. Wenn Sie also mit Warnungen leben können, gibt es kein Problem damit, einfach Folgendes zu tun:

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

Answer 2

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

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

Dies gibt FALSE zurück, wenn das Verzeichnis bereits existiert oder nicht erstellt werden kann, und TRUE, wenn es nicht existierte, aber erfolgreich erstellt wurde.

Beachten Sie, dass Sie einfach überprüfen können, ob das Verzeichnis existiert, indem Sie

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

Answer 3

Hier ist der einfache Check, und erstellt das Verzeichnis, wenn es nicht existiert:

## Geben Sie den Verzeichnisnamen (d. h. Unterverzeichnis) an, das Sie unter dem Hauptverzeichnis erstellen möchten:
output_dir <- file.path(main_dir, sub_dir)

if (!dir.exists(output_dir)){
dir.create(output_dir)
} else {
    print("Verzeichnis existiert bereits!")
}

Answer 4

Einzellinie:

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

Answer 5

In Bezug auf die allgemeine Architektur würde ich die folgende Struktur für die Verzeichniserstellung empfehlen. Dies wird die meisten potenziellen Probleme abdecken, und alle anderen Probleme mit der Verzeichniserstellung werden durch den dir.create-Aufruf erkannt.

mainDir <- "~"
subDir <- "outputDirectory"

if (file.exists(paste(mainDir, subDir, "/", sep = "/", collapse = "/"))) {
    cat("subDir existiert in mainDir und ist ein Verzeichnis")
} else if (file.exists(paste(mainDir, subDir, sep = "/", collapse = "/"))) {
    cat("subDir existiert in mainDir, ist aber eine Datei")
    # Sie werden wahrscheinlich wollen, dass Sie dies separat behandeln
} else {
    cat("subDir existiert nicht in mainDir - wird erstellt")
    dir.create(file.path(mainDir, subDir))
}

if (file.exists(paste(mainDir, subDir, "/", sep = "/", collapse = "/"))) {
    # Zu diesem Zeitpunkt existierte das Verzeichnis entweder oder wurde erfolgreich erstellt
    setwd(file.path(mainDir, subDir))
} else {
    cat("subDir existiert nicht")
    # Behandeln Sie diesen Fehler entsprechend
}

Denken Sie auch daran, dass wenn ~/foo nicht existiert, ein Aufruf von dir.create('~/foo/bar') fehlschlagen wird, es sei denn, Sie geben recursive = TRUE an.