R/mySave.R

mySave <- function(..., file) { 
  callingF = sys.call(-1)
  cTime = Sys.time()
  cWd = getwd()
  sInfo = Sys.info()
  metadata = list(callingF, cTime, cWd, sInfo)
  save(..., metadata, file = file)
}
matteodefelice/eneaR documentation built on May 21, 2019, 12:59 p.m.