draft/memory.R

In filipezabala/voice: Voice Analysis, Speaker Recognition and Mood Inference via music theory

#' Gives the amount of memory RAM free, total and percentage = free/total.
#'
#' @examples
#' \dontrun{
#' library(voice)
#' memory()
#' }
#' @export
memory <- function(){

  plat <- strsplit(version$platform,'-')

  if(sum(plat[[1]] == 'linux')){
    mem <- system('free -m', intern=TRUE)
    memtotal <- as.numeric((strsplit(mem[2],'     ')[[1]])[3])
    memfree  <- as.numeric((strsplit(mem[2],'     ')[[1]])[5])
    memfreeperc <- memfree/memtotal

    return(list(memory.free=memfree,
                memory.total=memtotal,
                mem.free.perc=memfreeperc))

  } else if(sum(plat[[1]] == 'apple')){
    cat('Only works on Linux!\n')
    # mem <- system('vm_stat', intern=TRUE)
    # memtotal <- ?
    # memfree  <- ?
    # memfreeperc <- memfree/memtotal
  } else if(sum(plat[[1]] == 'windows')){
    cat('Only works on Linux!\n')
  }  else{cat('Only works on Linux!\n')}
}