R语言For循环中使用dir.create函数报错的原因及解决方法

需求：构建2023-2030年的目录结构，每个年份文件夹命名为{年份}-YTD，每个年份下包含12个月份子文件夹，命名为{两位月份}-{月份缩写}。

以下代码可正确打印目标路径：

library(lubridate)

path <- "C:/Users/joeshmoe1/Documents/"

for(i in paste0(format(seq(Sys.Date() %m+% years(1), length.out=8, by="+1 years"), "%Y"),"-YTD")) {
  if (!file.exists(paste0(path, i))) {dir.create(path = paste0(path, i))} 
  else {print(paste0(path, i, "/", paste0(format(ISOdate(year(Sys.Date() %m+% years(1)), 1:12, 1), "%m"), "-", month.abb)))} 
}

打印输出示例：

[1] "C:/Users/joeshmoe1/Documents/2023-YTD/01-Jan"
 [2] "C:/Users/joeshmoe1/Documents/2023-YTD/02-Feb"
...
[10] "C:/Users/joeshmoe1/Documents/2030-YTD/10-Oct"
[12] "C:/Users/joeshmoe1/Documents/2030-YTD/12-Dec"

但将else分支的print替换为dir.create后，出现错误：

for(i in paste0(format(seq(Sys.Date() %m+% years(1), length.out=8, by="+1 years"), "%Y"),"-YTD")) {
  if (!file.exists(paste0(path, i))) {dir.create(path = paste0(path, i))} 
  else {dir.create(path = paste0(path, i, "/", paste0(format(ISOdate(year(Sys.Date() %m+% years(1)), 1:12, 1), "%m"), "-", month.abb)), showWarnings = FALSE)} 
}

错误信息：

Error in dir.create(paste0(paste0(path, i), "/", paste0(format(ISOdate(year(Sys.Date() %m+%  : 
  invalid 'path' argument

错误原因 #

1. dir.create不支持向量输入：代码中生成的月份路径是长度为12的字符向量（对应12个月份目录），但dir.create的path参数仅接受单个字符串，无法批量处理向量，因此触发"invalid 'path' argument"错误。
2. 年份匹配错误：生成月份路径时使用year(Sys.Date() %m+% years(1))会固定使用某一年的月份格式，无法匹配循环中当前的年份文件夹（比如循环到2024-YTD时，月份路径仍基于初始计算的年份）。

解决方法 #

修改代码，逐个处理月份路径，并确保年份匹配：

library(lubridate)

path <- "C:/Users/joeshmoe1/Documents/"

# 直接生成2023-2030的年份文件夹名称，避免时间计算偏差
year_folders <- paste0(2023:2030, "-YTD")

for(year_folder in year_folders) {
  full_year_path <- file.path(path, year_folder)
  # 创建年份文件夹（不存在则创建）
  if(!file.exists(full_year_path)) {
    dir.create(full_year_path)
  }
  # 提取当前年份文件夹对应的年份数字
  current_year <- as.integer(strsplit(year_folder, "-")[[1]][1])
  # 生成当前年份下的12个月份路径
  month_paths <- file.path(
    full_year_path,
    paste0(format(ISOdate(current_year, 1:12, 1), "%m"), "-", month.abb)
  )
  # 遍历月份路径，逐个创建文件夹（showWarnings=FALSE避免重复创建时的警告）
  lapply(month_paths, function(x) dir.create(x, showWarnings = FALSE))
}

修改要点： #

• 用2023:2030直接生成年份列表，避免依赖系统时间导致的年份偏差
• 使用file.path拼接路径，自动适配Windows/macOS的路径分隔符，比paste0更可靠
• 从年份文件夹名称中提取对应年份，确保月份路径与年份文件夹匹配
• 用lapply遍历月份路径向量，逐个调用dir.create，解决向量输入的问题
• 调整逻辑：无论年份文件夹是否已存在，都确保创建对应的月份文件夹，覆盖更全面的场景

内容的提问来源于stack exchange，提问作者SourceCoda