Создавайте подкаталоги внутри директории сразу в R - PullRequest
Новая
       11

Создавайте подкаталоги внутри директории сразу в R

0 голосов
/ 26 июня 2018

Я искал в SO тему о том, как создать две (или n) подкаталога в каталоге за раз в R, и нашел только это , что не совсем то, что я хочу.

Я могу сделать это в две строки, выполнив: 

dir.create(file.path(getwd(), "test"))

sapply(letters[1:2], 
   function(x) dir.create(file.path(getwd(), "test", paste0(x, "_test"))))

#   a    b 
#TRUE TRUE

Как мне сделать это в одну строку?

Спасибо.

1 Ответ

0 голосов
/ 26 июня 2018 
new_folder_path<-paste(getwd(),"new_folder",sep = "/")      
create_sub_folders<-function(x){
      dir.create(x)
      setwd(x)
      ifelse(dir.exists(x)!=TRUE,print("dir already exists"),dir.create(paste(x,"test_a",sep = "/")))
      ifelse(dir.exists(x)!=TRUE,print("dir already exists"),dir.create(paste(x,"test_b",sep = "/")))}

не уверен, что это то, что вы хотите. создайте new_folder_path, который вы хотите, затем просто введите его в функцию create_sub_folders, и он создаст нужные вам подпапки .. (извините, не в одну строку!)

...