r

디렉토리의 존재를 테스트하기 위해 file.exists ()를 사용하는 것은 원래 게시물의 문제입니다. subDir에 경로가 아닌 기존 파일의 이름이 포함 된 경우 file.exists ()는 TRUE를 반환하지만 파일을 가리 키도록 작업 디렉토리를 설정할 수 없기 때문에 setwd () 호출이 실패합니다.

subDir이 기존 디렉토리 인 경우 “TRUE”를 반환하고, subDir이 기존 파일이거나 존재하지 않는 파일 또는 디렉토리 인 경우 FALSE를 반환하는 file_test (op = “-d”, subDir)를 사용하는 것이 좋습니다. 마찬가지로 파일 확인은 op = “-f”로 수행 할 수 있습니다.

또한 다른 의견에서 설명한 것처럼 작업 디렉토리는 R 환경의 일부이므로 스크립트가 아닌 사용자가 제어해야합니다. 스크립트는 이상적으로 R 환경을 변경하지 않아야합니다. 이 문제를 해결하기 위해 options ()를 사용하여 모든 출력을 원했던 전역 적으로 사용 가능한 디렉토리를 저장할 수 있습니다.

따라서 someUniqueTag가 옵션 이름에 대한 프로그래머 정의 접두어 인 다음 솔루션을 고려하십시오. 동일한 이름의 옵션이 이미 존재하지 않을 수 있습니다. 예를 들어 “filer”라는 패키지를 개발하는 경우 filer.mainDir 및 filer.subDir을 사용할 수 있습니다.

다음 코드는 다른 스크립트에서 나중에 사용할 수있는 옵션을 설정하고 (따라서 스크립트에서 setwd () 사용을 피함) 필요한 경우 폴더를 만드는 데 사용됩니다.

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

그런 다음 subDir에서 파일을 조작해야하는 후속 스크립트에서 다음과 같은 것을 사용할 수 있습니다.

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

이 솔루션은 작업 디렉토리를 사용자가 제어합니다.

답변

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

mkdirs("H:/foo/bar")

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