R/free.profile.R

In tdhock/memtime: Memory and Time Usage of R Code

free.profile.start <- function
### Start running free in the background.
(free.file
### File to which we will write output of free.
 ){
  stopifnot(is.character(free.file))
  stopifnot(length(free.file) == 1)
  sh.file <- system.file("exec", "free.sh", package="memtime")
  cmd <- paste("bash", sh.file, free.file)
  system(cmd, wait=FALSE)
### Nothing.
}

free.profile.stop <- function
### Stop running free in the background.
(free.file
### file where free output is writing.
 ){
  stopifnot(is.character(free.file))
  stopifnot(length(free.file) == 1)
  DONE.file <- paste0(free.file, ".DONE")
  cat("", file=DONE.file)
  if(file.exists(free.file)){
    readLines(free.file)
  }else{
    character()
  }
### character vector of lines written to free.file.
}