R 创建文件夹和子文件夹

测试案例1

main_dir="./"
sub_dir="fassafsdfa"
## Provide the dir name(i.e sub dir) that you want to create under main dir:
output_dir <- file.path(main_dir, sub_dir)

if (!dir.exists(output_dir)){
    
dir.create(output_dir)
} else {
    
    print("Dir already exists!")
}

可以得到的结果是在当前目录创建了一个sub_dir的文件夹

应用

我现在的目的是这样的，我需要在上层目录的evaluation文件夹创建一个数据集命名(取名为test)的子文件夹，然后子文件夹中又有很多的方法子文件夹，命名为A,B,C
实现如下

parent_dir="../evaluation/"
dataset="test"

output_dir <- file.path(parent_dir, dataset)
# print(output_dir)
if (!dir.exists(output_dir)){
    
    dir.create(output_dir)
} else {
    
    print("Dir already exists!")
}
#先创建test子文件夹，否则接下来的程序会报错

method=c("A","B","C")
for(sub_dir in method){
    
    main_dir=paste(parent_dir,dataset,sep="")
    output_dir=file.path(main_dir,sub_dir)
    #print(output_dir)
    if (!dir.exists(output_dir)){
    
    dir.create(output_dir)
    } else {
    
        print("Dir already exists!")
    }
}
# 必须创建test文件夹，然后程序自动创建A,B,C文件夹
#