Periksa keberadaan direktori dan buat jika tidak ada

Saya sering menemukan diri saya menulis skrip R yang menghasilkan banyak output. Saya merasa lebih bersih untuk menempatkan output ini ke dalam direktori itu sendiri. Apa yang saya tulis di bawah ini akan memeriksa keberadaan direktori dan pindah ke dalamnya, atau membuat direktori dan kemudian pindah ke dalamnya. Apakah ada cara yang lebih baik untuk mendekati ini?

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

}

Gunakan showWarnings = FALSE:

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

dir.create()tidak macet jika direktori sudah ada, itu hanya mencetak peringatan. Jadi jika Anda dapat hidup dengan melihat peringatan, tidak ada masalah dengan hanya melakukan ini:

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

Pada 16 April 2015, dengan dirilisnya R 3.2.0ada fungsi baru yang disebut dir.exists(). Untuk menggunakan fungsi ini dan membuat direktori jika tidak ada, Anda dapat menggunakan:

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

Ini akan kembali FALSEjika direktori sudah ada atau tidak dapat dikelola, dan TRUEjika tidak ada tetapi berhasil dibuat.

Perhatikan bahwa untuk cukup memeriksa apakah direktori tersebut ada, Anda dapat menggunakan

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

Dalam hal arsitektur umum saya akan merekomendasikan struktur berikut berkaitan dengan pembuatan direktori. Ini akan mencakup sebagian besar masalah potensial dan masalah lain dengan pembuatan direktori akan terdeteksi oleh dir.createpanggilan.

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
}

Perlu diketahui juga bahwa jika ~/footidak ada maka panggilan ke dir.create('~/foo/bar')akan gagal kecuali Anda tentukan recursive = TRUE.

Ini cek sederhana , dan buat dir jika tidak ada:

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

Penggunaan file.exists () untuk menguji keberadaan direktori adalah masalah dalam posting asli. Jika subDir menyertakan nama file yang ada (bukan hanya path), file.exists () akan mengembalikan TRUE, tetapi panggilan ke setwd () akan gagal karena Anda tidak dapat mengatur direktori kerja untuk menunjuk pada file.

Saya akan merekomendasikan penggunaan file_test (op = "- d", subDir), yang akan mengembalikan "TRUE" jika subDir adalah direktori yang sudah ada, tetapi FALSE jika subDir adalah file yang ada atau file atau direktori yang tidak ada. Demikian pula, memeriksa file dapat dilakukan dengan op = "- f".

Selain itu, seperti dijelaskan dalam komentar lain, direktori kerja adalah bagian dari lingkungan R dan harus dikontrol oleh pengguna, bukan skrip. Skrip seharusnya, idealnya, tidak mengubah lingkungan R. Untuk mengatasi masalah ini, saya mungkin menggunakan opsi () untuk menyimpan direktori yang tersedia secara global di mana saya ingin semua output saya.

Jadi, pertimbangkan solusi berikut, di mana someUniqueTag hanyalah awalan yang ditentukan programmer untuk nama opsi, yang membuatnya tidak mungkin bahwa opsi dengan nama yang sama sudah ada. (Misalnya, jika Anda mengembangkan paket yang disebut "filer", Anda dapat menggunakan filer.mainDir dan filer.subDir).

Kode berikut akan digunakan untuk mengatur opsi yang tersedia untuk digunakan nanti di skrip lain (sehingga menghindari penggunaan setwd () dalam skrip), dan untuk membuat folder jika perlu:

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

Kemudian, dalam skrip selanjutnya yang perlu memanipulasi file di subDir, Anda dapat menggunakan sesuatu seperti:

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

Solusi ini meninggalkan direktori kerja di bawah kendali pengguna.

Saya punya masalah dengan R 2.15.3 di mana ketika mencoba membuat struktur pohon secara rekursif pada drive jaringan bersama saya akan mendapatkan kesalahan izin.

Untuk menyiasati keanehan ini saya secara manual membuat struktur;

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

mkdirs("H:/foo/bar")

Satu-liner:

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

Contoh:

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

Untuk mengetahui apakah jalur adalah direktori yang valid coba:

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

file.info tidak peduli tentang garis miring pada akhirnya.

file.existspada Windows akan gagal untuk direktori jika berakhir dengan garis miring, dan berhasil tanpanya. Jadi ini tidak dapat digunakan untuk menentukan apakah path adalah direktori.

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