我在目录文件夹中存储了许多(子)文件夹。每个子文件夹包含 5-35 个 .jpg 航空照片文件,这些文件以航线名称和编号命名(即:bej-3-83)。我想根据它们存储的子文件夹为每个文件添加一个后缀。例如,如果“bej-3-83”存储在“T13N_10W”子文件夹中,我希望我的 R 脚本将“bej-3-83”重命名为“bej-3-83-T13N_10W”等存储在其中的每个文件每个子文件夹。
我可以部分完成这个过程,尽管手动输入比我想要使用这个脚本更多:
folder = "C:\\...\\T23N_R14W"
files <- list.files(folder,pattern = "\\.jpg$",full.names = T)
files
sapply(files,FUN=function(eachPath){
file.rename(from=eachPath,to= sub(pattern="_clip", paste0("_T23N_R14W"),eachPath))
})
但是正如您所看到的,此脚本使用子文件夹名称的手动粘贴输入,当您尝试创建一个一举完成我需要的脚本时,这没有用。
我看到了类似的问题和答案,它们使用了“pushd”和“popd”,并且我已将这些线程作为链接附加到下面。我正在尝试尽可能多地阅读这些功能,但到目前为止,使其工作的过程让我陷入困境。
真挚地,
亨利