getmonitor.R

huang — Jan 22, 2013, 8:16 PM

getmonitor <- function(id, directory, summarize = FALSE) {
  path <- sprintf("%s/%.3d.csv",directory,as.integer(id))  # make id, directory to path
    if(summarize==TRUE){
    print(summary(read.csv(path)))
  }
  read.csv(path)
}