R/cleanDownload.R

In pik-piam/validation: MAgPIE validation library

Defines functions .cleanDownload

Documented in .cleanDownload

.cleanDownload<-function(libdir,workdir="."){
  setwd(workdir)
  n<-0
  while(file.exists(libdir)&n<10){
    suppressWarnings(unlink(libdir,recursive=T))
    Sys.sleep(3)
    n<-n+1
  }
  if(file.exists(libdir)) warning("Problems removing the downloaded library.")
}