## ------------------------------------------------------------------------ library(memoise) library(microbenchmark) ## ------------------------------------------------------------------------ library(oce) microbenchmark(d<-read.oce("/data/arctic/beaufort/2012/d201211_0002.cnv")) ## ------------------------------------------------------------------------ r <- memoise(read.oce) ## ------------------------------------------------------------------------ microbenchmark(d <- r("/data/arctic/beaufort/2012/d201211_0002.cnv"))