R中file.rename函数出现警告及文件重命名失败的解决方法

警告原因 #

1. 文件路径缺失：list.files()默认仅返回文件名，不包含完整路径。如果你的R当前工作目录不是F:/Albedo_USCRN/Data/Goodwell_Dir/Out/BB/，file.rename()会在当前工作目录寻找原文件，自然找不到，导致报错。
2. 正则代码冗余：你连续执行了两次sub()，第二次的结果直接覆盖了第一次，虽然最终tofile结果符合预期，但属于无效重复操作。

解决步骤 #

1. 获取带完整路径的文件名 #

修改list.files()调用，添加full.names = TRUE参数，确保获取到文件的完整路径：

fromfile <- list.files("F:/Albedo_USCRN/Data/Goodwell_Dir/Out/BB/", full.names = TRUE)

2. 优化正则匹配，生成目标文件名 #

用一次正则提取8位日期，并保留完整路径（只替换文件名部分）：

# 提取日期并构造目标路径：保留原目录，替换文件名
tofile <- sub(".*_(\\d{8})0000_.*\\.tiff", "\\1.tiff", fromfile)

解释：

• .*_：匹配前缀直到最后一个下划线
• (\\d{8})：捕获8位日期（年月日）
• 0000_.*\\.tiff：匹配日期后的多余部分和后缀
• \\1.tiff：用捕获的日期替换整个文件名

3. 执行重命名 #

现在fromfile和tofile都包含完整路径，执行重命名：

file.rename(fromfile, tofile)

验证（可选） #

执行前可以先打印fromfile和tofile确认路径和文件名是否正确：

print(fromfile)
print(tofile)

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