od = setwd(tempdir()) # move to a temp directory
(cur.files <- dir()) # current files in temp directory
export.variable.definitions(simpraz.xpdb,file="xpose.vardefs.ini")
(new.files <- dir()[!(dir() %in% cur.files)]) # what files are new here?
file.remove(new.files) # remove this file
setwd(od) # restore working directory
Run the code above in your browser using DataLab