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')

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

2 个答案: