使用“file.copy”通过网络复制文件比“system(mv ...)”慢得多

当我通过公司网络访问文件时，R 变得非常缓慢，我遇到了一些问题。所以我回去做了一些测试，我惊讶地发现 Rfile.copy()命令是much比使用等效文件复制慢system(mv ...)。这是一个已知问题还是我在这里做错了什么？

这是我的测试：

我有三个文件：

• 大随机.txt- ~100 MB
• 中随机.txt- ~10 MB
• 小随机.txt- ~1 MB

我在 Mac 上创建了这些，如下所示：

dd if=/dev/urandom of=small_random.txt bs=1048576 count=1
dd if=/dev/urandom of=medium_random.txt bs=1048576 count=10
dd if=/dev/urandom of=large_random.txt bs=1048576 count=100

但以下R测试都是使用在虚拟机中运行的Windows完成的。这J:驱动器是本地的并且N:车程 1100 公里（700 英里）。

library(tictoc)

test_copy <- function(source, des){
  tic('r file.copy')
  file.remove(des)
  file.copy(source, des )
  toc()

  tic('system call')
  system(paste('rm', des, sep=' '))
  system(paste('cp', source, des, sep=' '))
  toc()
}

source <- 'J:\\tidy_examples\\dummyfiles\\small_random.txt'
des <- 'N:\\JAL\\2018\\_temp\\small_random.txt'
test_copy(source, des)

source <- 'J:\\tidy_examples\\dummyfiles\\medium_random.txt'
des <- 'N:\\JAL\\2018\\_temp\\medium_random.txt'
test_copy(source, des)

source <- 'J:\\tidy_examples\\dummyfiles\\large_random.txt'
des <- 'N:\\JAL\\2018\\_temp\\large_random.txt'
test_copy(source, des)

结果如下：

> source <- 'J:\\tidy_examples\\dummyfiles\\small_random.txt'
> des <- 'N:\\JAL\\2018\\_temp\\small_random.txt'
> test_copy(source, des)
r file.copy: 6.49 sec elapsed
system call: 2.12 sec elapsed
>
> source <- 'J:\\tidy_examples\\dummyfiles\\medium_random.txt'
> des <- 'N:\\JAL\\2018\\_temp\\medium_random.txt'
> test_copy(source, des)
r file.copy: 56.86 sec elapsed
system call: 4.65 sec elapsed
>
> source <- 'J:\\tidy_examples\\dummyfiles\\large_random.txt'
> des <- 'N:\\JAL\\2018\\_temp\\large_random.txt'
> test_copy(source, des)
r file.copy: 562.94 sec elapsed
system call: 31.01 sec elapsed
>

那么到底发生了什么事情使得系统调用速度如此之快呢？文件较大时，速度要慢 18 倍以上！

我遇到了同样的问题，即网络共享驱动器上的 file.copy 性能较低。我的解决方案是使用fs::file_copy() https://www.rdocumentation.org/packages/fs/versions/1.3.1/topics/copy相反，它的性能甚至比直接系统调用 copy 还要好一些。