Dear list, I needed to extract a zip-archive, and found zip.file.extract in utils. My only problem was the use of tempdir(), since I wanted to permanently extract the archive at a fixed location for later use. My own fix was simple, adding an extra parameter zipdir (without default), and within the function change tmpd <- tempdir() to tmpd = ifelse(missing(zipdir),tempdir(),zipdir) This modification could maybe be useful also for other users, unless there are some problems I am not aware of? Cheers, Jon
Small modification of zip.file.extract in utils?
2 messages · Jon Olav Skoien, Duncan Murdoch
On 10/30/2008 3:08 PM, Jon Olav Skoien wrote:
Dear list, I needed to extract a zip-archive, and found zip.file.extract in utils. My only problem was the use of tempdir(), since I wanted to permanently extract the archive at a fixed location for later use. My own fix was simple, adding an extra parameter zipdir (without default), and within the function change tmpd <- tempdir() to tmpd = ifelse(missing(zipdir),tempdir(),zipdir) This modification could maybe be useful also for other users, unless there are some problems I am not aware of?
I won't comment on the value of the extra parameter, but the implementation would be simpler if you set the default for zipdir to tempdir(), and then just used zipdir in place of tmpd throughout. Duncan Murdoch