R/tempfolder.R

Defines functions tempfolder

tempfolder <- function(){
  name <- gsub('file','',return_last(strsplit(tempfile(),'\\\\')[[1]]))
  dir.create(sprintf("%s/%s",tempdir(),name))
  return(gsub('\\\\','/',sprintf("%s\\%s",tempdir(),name)))
}
statisticiansix/dockerise documentation built on Nov. 5, 2019, 9:20 a.m.