R/TimeStamp.R

In kmcconeghy/Scotty: Scotty: misc. functions

#' @title timestamp
#'
#' @description Returns a length=1 character vector, year, month, day, time.
#'
#' @export
#' @examples
#' timestamp()
#' 

timestamp <- function () {
  timestamp <- paste0(sprintf("%04d", lubridate::year(Sys.Date())), ".", 
                      sprintf("%02d", lubridate::month(Sys.Date())), ".", 
                      sprintf("%02d", lubridate::day(Sys.Date())), ".", 
                      sprintf("%02d", lubridate::hour(Sys.time())), 
                      sprintf("%02d", lubridate::minute(Sys.time()))
                      )
  return(timestamp)
}