Question

我一直在SO中寻找一个有关如何在R中一次在目录中创建两个（或n个）子目录的线程，但只发现this，这并没有使我想要的东西安静下来。

我可以通过以下两种方式做到这一点：

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

我怎么能一行完成？

谢谢。

Answer 1

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函数中，它将创建所需的子文件夹。.（抱歉，不在一行！）

Answer 2

dir.create（file.path（getwd（），'test'），递归= TRUE）

在R中一次在目录内创建子目录

2 个答案: