测试案例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文件夹
#