Wie entferne ich ein Verzeichnis in R?

Question

Nach einigen Recherchen fand heraus, dass ich, dass die folgenden Werke:

unlink("mydir") 

und Sie haben die recursive Option verwenden, falls Sie rekursiv entfernen möchten:

unlink("mydir", recursive=TRUE) 

Allerdings habe ich festgestellt, allein dass unlink("mydir") , ohne die Option recursive, produziert keine Ausgabe, wenn mydir Unterverzeichnisse enthält: Es entfernt nicht die Verzeichnisse, aber zeigt keine Warnung. Nur nichts:

> list.dirs() 
[1] "."   "./r" 
> dir.create("test") 
> dir.create("test/test2") 
> list.dirs() 
[1] "."   "./r" "./test"  "./test/test2" 
> unlink("test")   ######### here I would expect a warning ######### 
> list.dirs() 
[1] "."   "./r" "./test"  "./test/test2" 
> unlink("test", recursive=TRUE) 
> list.dirs() 
[1] "."   "./r" 

Gibt es eine Möglichkeit, irgendeine Art von "Benachrichtigung" zu erhalten, wie die, die Sie in UNIX-Systemen bekommen würden?

$ rmdir test 
rmdir: failed to remove «test»: Directory not empty 

Ich verwende R Version 3.1.2 (2014-10-31). Ich habe versucht, mit options(warn=1) usw. zu spielen, aber kein Glück.

Answer 1

Siehe Hilfe ?unlink:

Wert

0 für Erfolg, 1 für das Scheitern, unsichtbar. Das Löschen einer nicht vorhandenen Datei ist kein Fehler, und ein Verzeichnis kann auch nicht gelöscht werden, wenn recursive = FALSE ist. Fehlende Werte in x werden jedoch als Fehler angesehen.

In dem Fall, dass es sich um einen Ordner foo der unlink Anruf ohne recursive=TRUE1 zurück.

Beachten Sie, dass tatsächlich das Verhalten eher wie rm -f ist, was bedeutet, dass eine nicht vorhandene Datei Entkoppeln zurück ist 0.

Answer 2

Hier ist eine Wrapper-Funktion für Sie, wenn Sie wirklich Notwendigkeit, einen Fehler msg zu sehen:

.unlink <- function(x, recursive = FALSE, force = FALSE) { 
    if (unlink(x, recursive, force) == 0) 
    return(invisible(TRUE)) 
    stop(sprintf("Failed to remove [%s]", x)) 
}