代码之家 › 专栏 › 技术社区 › patL grad student

subdirectory directory function r

-1

patL grad student · 技术社区 · 7 年前

我一直在寻找一个关于如何在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

我怎样才能在一行中完成它?

非常感谢。

1 回复 | 直到 7 年前

1

2

Abdellatif GOU-ALI 5 年前

迪尔。create(file.path(getwd(),'test'),recursive=TRUE)

2

0

e.matt 7 年前

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 函数,它将创建所需的子文件夹。。(对不起,不在一行中!)

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