R语言保存列表元素为CSV时输出文件数量少于列表长度问题求解

问题原因 #

• 最常见原因是列表存在重复的元素名：同名的元素写入csv时会发生覆盖，是当前问题的最高概率诱因，比如150个元素中有28组重名就会刚好剩余122个文件。
• 元素名包含Windows系统不允许的非法字符：包括\ / : * ? " < > |，这类字符会导致文件写入失败且部分情况下不会显性报错。
• 写入过程中出现静默错误：部分异常dataframe（比如列名存在特殊格式、对象属性异常）写入时触发报错但被默认规则抑制，没有中断执行也没有提示。

解决方案 #

1. 优先排查重名 #

运行以下代码检查是否存在重名元素：

# 统计每个名称出现的次数，筛选出现次数大于1的
name_counts <- table(names(price_list_raw))
name_counts[name_counts > 1]

如果输出不为空，说明存在重名，需要给文件名添加唯一标识避免覆盖。

2. 修正文件名规则，处理非法字符 #

给文件名添加序号前缀，同时替换所有非法字符为下划线，再加上错误捕获打印失败的条目，修正后的代码如下：

output_dir <- "C:/Users/XXX"
# 提前创建文件夹避免路径不存在
if (!dir.exists(output_dir)) dir.create(output_dir, recursive = TRUE)

for (i in seq_along(price_list_raw)){
  # 取元素原始名
  raw_nam <- names(price_list_raw)[i]
  # 替换非法字符
  clean_nam <- gsub("[\\\\/:*?\"<>|]", "_", raw_nam)
  # 加序号前缀保证文件名唯一
  file_name <- paste0(i, "_", clean_nam, ".csv")
  full_path <- file.path(output_dir, file_name)
  
  # 捕获写入错误
  tryCatch({
    readr::write_csv(price_list_raw[[i]], full_path)
    message(paste("成功写入第", i, "个文件：", file_name))
  }, error = function(e) {
    message(paste("写入第", i, "个文件失败，元素名：", raw_nam, "错误信息：", e$message))
  })
}

运行上述代码后可以从控制台输出明确看到哪些文件写入失败、失败原因，且添加序号前缀后不会再出现覆盖问题，最终文件数量会和列表长度一致。

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