A work around for this would be to use on.exit
to get the temporary files and save them in a different directory. An example function would be like this:
ranfunction <- function(){
#Get list of files in tempdir
on.exit(templist <- list.files(tempdir(), full.names = T,pattern = "^file") )
#create a new directory for files to go on exit
#use add = T to add to the on.exit call
on.exit(dir.create(dir1 <- file.path("G:","testdir")),add = T )
#for each file in templist assign it to the new directory
on.exit(
lapply(templist,function(x){
file.create(assign(x, tempfile(tmpdir = dir1) ))})
,add=T)
}
ranfunction()
One thing this function does not take into account is that if you rerun it - it will throw an error because the new directory dir1
already exits. You would have to delete dir1
before re-running the script.
on.exit
? – Markuson.exit
to get round the issue, so, if you want to post that as an answer, I'll accept it. Or I'll add an answer in a few days. Thanks. – Hippocras