R 语言代码：创建多个文件夹路径及递归创建文件夹

以下 R 语言代码定义了一个名为 'dir' 的列表，其中包含四个元素：root、data、climdata 和 target。

dir <- list()
dir$root <- dirname(getwd())
dir$data <- paste(dir$root, '/data', sep = '')
dir$climdata <- paste(dir$root, '/data/Princeton', sep = '')
#dir$climdata <- c('/Volumes/MainData/Data/climate/Princeton') # network drive
#dir$climdata <- c('/Users/ao332/Downloads/Princeton') # local drive outside dropbox
dir$target <- paste(dir$root, '/data2/Princeton', sep = '')
lapply(dir, function(i) dir.create(i, recursive = T, showWarnings = F))

• root 元素使用 dirname(getwd()) 获取当前工作目录的父目录路径。
• data 元素将 root 路径与 '/data' 字符串拼接起来，形成数据文件夹路径。
• climdata 元素将 root 路径与 '/data/Princeton' 字符串拼接起来，形成气候数据文件夹路径。
• target 元素将 root 路径与 '/data2/Princeton' 字符串拼接起来，形成目标文件夹路径。

最后，通过 lapply 函数对 dir 列表中的每个元素执行 dir.create 函数，逐个创建对应的文件夹。参数 recursive 设置为 T 表示递归创建文件夹，showWarnings 设置为 F 表示不显示警告信息。