search for: nes1948

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