は2つのフォルダのファイル名を比較し、一致しないファイルを別のフォルダに移動します

Question

私は2つのフォルダAとBにそれぞれ5000と6000のファイルを持っています。フォルダBはフォルダAのサブセットです。これらの2つのフォルダを比較し、不一致のファイルを別々のフォルダに移動する必要があります。ファイル名を比較して移動すると、どのようにRで実行できますか

Answer 1

まず、例としてAのためのディレクトリとここに（それぞれのディレクトリ内のファイルを一覧表示する必要があるでしょう：

flsA <- list.files(dirA,patt,full.names=TRUE, recursive=FALSE) 

pattを使用すると、（例えば".txt$"、ファイル拡張子のように、パターン文字列を指定することができます最後に$の点に注意してください。 Rにファイル名の最後を伝える）

あなたが含めるサブディレクトリは、recursiveをTRUEに設定することができます。

full.namesオプションは完全なパスを指定し、後でファイルを移動するために必要です。あなたは両方のディレクトリがリストされていた場合

、あなたは機能basenameと%in%に含まれるファイルを比較することができます

ix <- basename(flsA) %in% basename(flsB) 

これはあなたに（両方AとB内のファイルのTRUE）論理ベクトルを与えるであろうあなたをそして、あなたがしたいファイルのインデックスを作成するために使用することができます。

to_move <- flsA[!ix] 

私が目にしたいと論理ベクトルを逆にする!演算子を使用しています2つのディレクトリにないファイル。

最後に、あなたのファイル、例えばにしたい機能をlapplyことができます。

lapply(to_move, function(x) file.copy(x,new.dir_C) 

それらが正しくコピーされたら、あなたは原本を取り除くためにfile.removeを使用することができます。

lapply (to_move,file.remove)