Solidna, wieloplatformowa metoda przenoszenia katalogu

Question

Jaka jest najbardziej niezawodna metoda przenoszenia całego katalogu z powiedzmy /tmp/RtmpK4k1Ju/oldname na /home/jeroen/newname? Najprostszym sposobem jest file.rename jednak nie zawsze działa, na przykład, gdy from i to są na różnych dyskach. W takim przypadku cały katalog musi być rekurencyjnie skopiowany.

Oto coś, co wymyśliłem, ale jest trochę zaangażowane i nie jestem pewien, czy będzie działać na wielu platformach. Czy istnieje lepszy sposób?

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

myślę file.copy powinna być wystarczająca.

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

Od ?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. 

oraz:

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

Z opisu o recursive wiemy from może mieć katalogi. Dlatego w powyższym kodzie wymienienie wszystkich plików przed kopiowaniem nie jest konieczne. I pamiętaj, że katalog to byłby rodzicem skopiowanego from. Na przykład po file.copy("dir_a/", "new_dir/", recursive = T), pod new_dir będzie dir_a.

Twój kod wykonał część usuwania. unlink ma ładną opcję recursive, której nie ma w przypadku file.remove.

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

Answer 2

Dlaczego nie wystarczy powołać system bezpośrednio:

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