Dizinin varlığını kontrol edin ve yoksa oluşturun

Sık sık kendimi çok fazla çıktı üreten R komut dosyaları yazarken buluyorum. Bu çıktıyı kendi dizin (ler) ine koymak daha temiz buluyorum. Aşağıda yazdıklarım bir dizinin varlığını kontrol edecek ve dizine geçecek ya da dizini oluşturacak ve dizine geçecektir. Buna yaklaşmanın daha iyi bir yolu var mı?

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

}

Kullanım showWarnings = FALSE:

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

dir.create()dizin zaten varsa çökmez, sadece bir uyarı yazdırır. Dolayısıyla, uyarıları görmekle yaşayabiliyorsanız, bunu yapmakla ilgili bir sorun yoktur:

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

16 Nisan 2015 itibariyle, piyasaya sürülmesiyle birlikte R 3.2.0yeni bir işlev var dir.exists(). Bu işlevi kullanmak ve yoksa dizini oluşturmak için aşağıdakileri kullanabilirsiniz:

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

FALSEDizin zaten varsa veya oluşturulamıyorsa ve TRUEyoksa , ancak başarıyla oluşturulmuşsa bu geri döner .

Dizinin mevcut olup olmadığını kontrol etmek için şunu kullanabilirsiniz:

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

Genel mimari açısından dizin oluşturma ile ilgili olarak aşağıdaki yapıyı tavsiye ederim. Bu, çoğu olası sorunu kapsayacak ve dizin oluşturma ile ilgili diğer sorunlar dir.createçağrı tarafından algılanacaktır .

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
}

Ayrıca yoksa ~/foo, dir.create('~/foo/bar')siz belirtmedikçe yapılacak bir çağrının başarısız olacağını da unutmayın recursive = TRUE.

İşte basit bir kontrol , ve mevcut değilse dir oluşturur:

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

Dizinin varlığını test etmek için file.exists () kullanımı, orijinal gönderide bir sorundur. SubDir varolan bir dosyanın adını (yalnızca yol yerine) içeriyorsa, file.exists (), TRUE değerini döndürür, ancak çalışma dizinini bir dosyayı gösterecek şekilde ayarlayamadığınız için setwd () çağrısı başarısız olur.

SubDir varolan bir dizinse "TRUE", ancak subDir varolan bir dosya veya varolmayan bir dosya veya dizinse FALSE döndürecek olan file_test (op = "- d", subDir) kullanımını öneririm. Benzer şekilde, bir dosya kontrolü op = "- f" ile yapılabilir.

Ayrıca, başka bir açıklamada açıklandığı gibi, çalışma dizini R ortamının bir parçasıdır ve bir komut dosyası tarafından değil, kullanıcı tarafından denetlenmelidir. Scriptler ideal olarak R ortamını değiştirmemelidir. Bu sorunu gidermek için, tüm çıktımı istediğim global olarak kullanılabilir bir dizini saklamak için options () kullanabilirsiniz.

Bu nedenle, someUniqueTag öğesinin seçenek adı için yalnızca programcı tanımlı bir önek olduğu aşağıdaki çözümü göz önünde bulundurun; (Örneğin, "filer" adlı bir paket geliştiriyorsanız, filer.mainDir ve filer.subDir kullanabilirsiniz).

Aşağıdaki kod, daha sonra diğer komut dosyalarında kullanılabilecek seçenekleri ayarlamak (böylece bir komut dosyasında setwd () kullanmaktan kaçınmak) ve gerekirse klasörü oluşturmak için kullanılır:

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

Ardından, subDir'de bir dosyayı işlemek için gereken herhangi bir komut dosyasında aşağıdaki gibi bir şey kullanabilirsiniz:

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

Bu çözüm, çalışma dizinini kullanıcının denetiminde bırakır.

Paylaşılan bir ağ sürücüsünde özyinelemeli bir ağaç yapısı oluşturmaya çalışırken bir izin hatası alacağım R 2.15.3 ile ilgili bir sorunum vardı.

Bu tuhaflığın üstesinden gelmek için yapıyı el ile oluşturuyorum;

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

mkdirs("H:/foo/bar")

Tek astarı:

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

Misal:

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

Bir yolun geçerli bir dizin olup olmadığını öğrenmek için şunu deneyin:

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

file.info sonunda eğik çizgi umurunda değil.

file.existsWindows'da bir eğik çizgi ile biterse ve onsuz başarılı olursa bir dizin için başarısız olur. Bu nedenle, bir yolun dizin olup olmadığını belirlemek için kullanılamaz.

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