ディレクトリ フォルダー内に多数の (サブ) フォルダーが格納されています。各サブフォルダーには、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」を利用する同様の質問と回答があり、以下のスレッドにリンクとして添付しました。私はこれらの機能についてできる限り多くのことを読み込もうとしていますが、これまでのところ、それを機能させるプロセスが行き詰まっています。
バッチファイルを使用してフォルダー内のファイルの名前をフォルダー名に変更する方法
心から、
ヘンリー