R/stamp_date.R

In INESSSQC/INESSS: Useful functions

#' stamp_date
#'
#' Indique la date et l'heure du système.
#'
#' @return "AAAA-MM-JJ-hh'h'mm'm'ss's'". Par exemple "2019-04-11-12h46m32s".
#'
#' @export
stamp_date <- function(){
  return(paste0(substr(Sys.time(),1,10),"-",
                substr(Sys.time(),12,13),"h",
                substr(Sys.time(),15,16),"m",
                substr(Sys.time(),18,19),"s"))
}