文件复制，根据需要制作目录

Question

类似于https://stackoverflow.com/a/10268255/，我想要一个函数，当使用file.copy 时，它会自动创建不存在的子目录。当前我收到错误：

In file.copy( ... :
  'recursive' will be ignored as 'to' is not a single existing directory

不幸的是使用了这样的函数：

my.file.copy<- function(from, to, ...) {
    todir <- dirname(to)
    if (!isTRUE(file.info(todir)$isdir)) dir.create(todir, recursive=TRUE)
    file.copy(from = from,  to = to, ...)
}

如果to 是一个目录，则dirname 会去除最后一个子目录。

Answer 1

根据您将如何将to 参数传递给函数，我们可以使用其中之一。

1) 如果您要传递 to 仅带有目录名，并希望它从 from 参数中获取文件名，我们可以使用以下函数

my.file.copy_dir <- function(from, to, ...) {
   if (!dir.exists(to))  dir.create(to, recursive = TRUE) 
   file.copy(from = from,  to = paste0(to, basename(from)), ...)
}

2) 如果您要将to 作为新文件名的完整路径传递，我们可以使用

my.file.copy_file <- function(from, to, ...) {
   if (!dir.exists(dirname(to)))  dir.create(dirname(to), recursive = TRUE) 
   file.copy(from = from,  to = to, ...)
}

并将它们用作：

my.file.copy_dir("/path/of/file/report.pdf", "/new/path/of/file/")

和

my.file.copy_file("/path/of/file/report.pdf", "/new/path/of/file/abc.pdf")