ディレクトリを移動する堅牢なクロスプラットフォームの方法

Question

ディレクトリ全体を移動する最も堅牢な方法は、/tmp/RtmpK4k1Ju/oldnameから/home/jeroen/newnameまでです。最も簡単な方法はfile.renameですが、これは常に有効ではありません。たとえば、fromとtoが異なるディスクにある場合などです。その場合、ディレクトリ全体を再帰的にコピーする必要があります。

これは私が思いついたものですが、少し複雑ですが、クロスプラットフォームで動作するかどうかはわかりません。より良い方法がありますか？

dir.move <- function(from, to){ 
    stopifnot(!file.exists(to)); 
    if(file.rename(from, to)){ 
    return(TRUE) 
    } 
    stopifnot(dir.create(to, recursive=TRUE)); 
    setwd(from) 
    if(all(file.copy(list.files(all.files=TRUE, include.dirs=TRUE), to, recursive=TRUE))){ 
    #success! 
    unlink(from, recursive=TRUE); 
    return(TRUE) 
    } 
    #fail! 
    unlink(to, recursive=TRUE); 
    stop("Failed to move ", from, " to ", to); 
} 

Answer 1

私はfile.copyは十分なものでなければならないと思います。 ?file.copyから

file.copy(from, to, overwrite = recursive, recursive = FALSE, 
      copy.mode = TRUE) 

：

from, to: character vectors, containing file names or paths. For 
     ‘file.copy’ and ‘file.symlink’ ‘to’ can alternatively 
     be the path to a single existing directory. 

と：説明から

recursive: logical. If ‘to’ is a directory, should directories in 
      ‘from’ be copied (and their contents)? (Like ‘cp -R’ on 
      POSIX OSes.) 

についてrecursive我々はfromディレクトリを持つことができます知っています。したがって上記のコードリストでは、コピーする前のすべてのファイルは不要です。そして、toディレクトリがコピーされたfromの親であることを覚えておいてください。たとえば、file.copy("dir_a/", "new_dir/", recursive = T)の後にnew_dirの下にdir_aがあります。

あなたのコードは削除部分をかなりうまく行っています。 unlinkはrecursiveオプションがあります。file.removeはありません。

unlink(x, recursive = FALSE, force = FALSE) 

Answer 2

理由だけではなく、直接、システムを起動していない：

> system('mv /tmp/RtmpK4k1Ju/oldname /home/jeroen/newname')