移动目录的强大跨平台方法

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(from, to, overwrite = recursive, recursive = FALSE,
          copy.mode = TRUE)

来自?file.copy ：

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) ， dir_a下会有一个new_dir 。

你的代码很好地完成了删除部分。 unlink有一个很好的recursive选项， file.remove没有。

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

Answer 2

为什么不直接调用系统：

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