상대 출력 디렉터리를 R으로 설정

Question

여러 xlsx 파일에서 데이터를 읽고 데이터 프레임으로 변환 한 후 데이터 프레임의 행 값을 기반으로 내 컴퓨터의 디렉터리에 폴더를 만드는 R 스크립트가 있습니다. 로,

choose.dir(getwd(), "Choose a suitable folder")

그리고 폴더가 생성되는 출력 디렉토리 :

pth <- "C:/Users/Dev/Desktop/test/"

내가 실행하려면 나는 그런 내 코드의 시작 부분에 주요 디렉토리를 설정 한 여러 대의 컴퓨터에있는 스크립트로, pth이라는 출력 디렉토리가 항상 같은 것은 아닙니다. 상대 결과 출력 경로를 설정하는 방법이 있습니까? 스크립트를 실행할 때마다 내 결과를 원하는 위치를 지정하도록 할 수 있습니까? 나는 대화 창이 팝업 내가 원하는 디렉토리를 선택하지만, 내가 거기에 폴더 중 하나를 볼 수 없습니다

pth <- choose.dir(default = "", caption = "Choose the output path")

을 시도했다.

이 지금까지 내 코드입니다 : 당신이 할 수있는

#choose working directory 
choose.dir(getwd(), "Choose a suitable folder") 

library(xlsx) 
library(tcltk) 

#get file names 
f = list.files("./") 

#read files 
dat <- lapply(tk_choose.files(caption="Choose your files"), function(i) { 
    x <- read.xlsx(i, sheetIndex = 1, sheetName = NULL, startRow = 24, 
       endRow = NULL, as.data.frame = TRUE, header = FALSE, Filters = Filters[c("xlsx")]) 
    #return columns with names and colors 
    x <- x[, c(2, 5, 7, 9, 11, 13, 15, 17, 19), drop = FALSE] 
    #return the data 
    x 
}) 

library(plyr) 
df1 <- ldply(dat, data.frame) ## convert list into a dataframe 

#remove NA's 
complete.cases(df1) 
x <- df1[complete.cases(df1),] 
str(x) 

#show specific rows 
df1$X2 <- gsub("[[:punct:]]","-",df1$X2) 
df <-df1[grepl("^[0-9]|^[a-zA-Z][0-9].*", df1$X2), ] 
#print(df) 

##pth <- "C:/Users/Dev/Desktop/test/" 
pth = choose.dir(default = "", caption = "Choose the output path") 

# Iteratate within each row of df 
for(i in 1:nrow(df)){ 
    if (!file.exists(pth)) 
    # Create 1st path 
    dir.create(paste0(pth , df$X2[i]), na.omit(df$X2[i])) 
    # Create 2nd and 3rd paths 
    dir.create(paste0(pth, df$X2[i], "/",df$X5[i]), na.omit(df$X2[i])) 
    dir.create(paste0(pth, df$X2[i], "/",df$X7[i]), na.omit(df$X2[i])) 
    dir.create(paste0(pth, df$X2[i], "/",df$X9[i]), na.omit(df$X2[i])) 
    dir.create(paste0(pth, df$X2[i], "/",df$X11[i]), na.omit(df$X2[i])) 
    dir.create(paste0(pth, df$X2[i], "/",df$X13[i]), na.omit(df$X2[i])) 
    dir.create(paste0(pth, df$X2[i], "/",df$X15[i]), na.omit(df$X2[i])) 
    dir.create(paste0(pth, df$X2[i], "/",df$X17[i]), na.omit(df$X2[i])) 
    dir.create(paste0(pth, df$X2[i], "/",df$X19[i]), na.omit(df$X2[i])) 
} 

Answer 1

가 상대 경로 지정자를 사용하여. 예 :

getwd() 
[1] "C:/Users/Uwe/Documents/Rdevel/coverage" 
setwd("../stackoverflow/") # .. means go up one directory level 
getwd() 
[1] "C:/Users/Uwe/Documents/Rdevel/stackoverflow" 
setwd("../..") # go up two levels 
getwd() 
[1] "C:/Users/Uwe/Documents" 

유닉스에서도 작동합니다.

BTW : .은 실제 디렉토리를 나타냅니다. 그래서,

getwd() 
[1] "C:/Users/Uwe/Documents" 
setwd("./Rdevel/") # . denotes actual directory 
getwd() 
[1] "C:/Users/Uwe/Documents/Rdevel" 

이

getwd() 
[1] "C:/Users/Uwe/Documents" 
setwd("Rdevel") 
getwd() 
[1] "C:/Users/Uwe/Documents/Rdevel"