[Rd] misfeature: forced file.copy() of a file over itself truncates the file ...

From: Ben Bolker <bbolker_at_gmail.com>
Date: Fri, 27 Jan 2012 12:03:01 -0500

  Try this:

  fn <- "tmp.dat"
  x <- 1:3

  file.info(fn)  ## 9 bytes
  file.info(fn)  ## 0 bytes (!!)

  Normally file.copy() checks and disallows overwriting a file with itself, but it only checks whether character string 'from' is the same as character string 'to' and not whether the copy refers to the same file by different names, so it lets this go ahead. It then creates a new file with the name of 'to' using file.create():

     ‘file.create’ creates files with the given names if they do not
     already exist and truncates them if they do.

This trashes the existing 'from' file (which was not detected). file.copy() then happily appends the contents of 'from' (which is now empty) to 'to' ...

  I don't know whether there's any simple way to fix this, or whether it's just a case of "don't do that". It might be worth mentioning in the documentation:

 `file.copy' will normally refuse to copy a file to itself, but in cases where the same file is referred to by different names (as in copying "/full/path/to/filename" to "filename" in the current working directory), it will truncate the file to zero.

  Now that I write that it really seems like a 'mis-feature'.   On a Unix system I would probably compare inodes, but I don't know if there's a good system-independent way to test file identity ...

$ ls -i tmp.dat
114080 tmp.dat
$ ls -i /home/bolker/R/pkgs/r2jags/pkg/tests/tmp.dat 114080 /home/bolker/R/pkgs/r2jags/pkg/tests/tmp.dat

  Would normalizePath() work for this ... ?

> normalizePath("tmp.dat")

[1] "/mnt/hgfs/bolker/Documents/R/pkgs/r2jags/pkg/tests/tmp.dat"

    Ben Bolker

R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Fri 27 Jan 2012 - 17:07:27 GMT

This quarter's messages: by month, or sorted: [ by date ] [ by thread ] [ by subject ] [ by author ]

All messages

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Tue 31 Jan 2012 - 20:00:12 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-devel. Please read the posting guide before posting to the list.

list of date sections of archive