.Last function 終了 終了処理

Enable GingerCannot connect to Ginger Check your internet connection
or reload the browserDisable in this text fieldEditEdit in GingerEdit in Ginger×

save image files with timestamp file name like "yyyy-mm-dd-hh-mm-ss-00" and .Rdata.

.Last <- function() {

  # save.image(file=paste(getwd(),Sys.time(),sep="/"))

  #

  # save working image in the parent directory. expected the length of the directory name is fixed.

  # adjust value "len" to fit the length of the result "getwd()".

  #

  op <- options(digits.secs = 2)

  start_pos <- 1

  # len <- 23

  # change to decide based upon strings length.

  last_pos <- nchar(as.character(getwd())) -2

  save.image(file=gsub("[ :.]","-",paste(substr(getwd(),start_pos,last_pos),Sys.time(),sep="/")))

   cat("time stamp file done...\n")

  save.image(file=paste(getwd(),".Rdata",sep="/"))

   cat("RData done...\n")

  #

  # OR store working image at the working directory

  #

  # save.image(file=gsub(" ","-",paste(getwd(),Sys.time(),sep="/")))

  #

  cat("bye bye...\n")

}