In averissimo/glmSparseNetPaper:

knitr::opts_chunk$set(echo = TRUE)

system('find /home/averissimo/ssd_home/work/rpackages/network.cox-cache -type f -ctime -1 | xargs du -h | awk \'{print $2}\' > newRData.txt')

aa <- as.vector(read.table('newRData.txt')[,1])

.Last.value <- lapply(aa, function(path) {
  if (file.info(path)$size == 0) {
    file.remove(path)
    return(NULL)
  }
  new_env <- new.env()
  load(path, envir = new_env)
  result <- new_env$result
  save(result, file = path, compress = 'gzip')
  result <- NULL
  new_env <- NULL
  return(NULL)
})

averissimo/glmSparseNetPaper documentation built on Jan. 25, 2021, 12:11 p.m.