R/dateTimeStamp.R

In gtm19/gmcustomfun: A package containing various functions I use day to day

#' @title A simple function to prefix a character vector with \code{ymd_hms}
#'
#' @param character a character vector
#'
#' @return a character vector, prefixed with a timestamp
#' @export
#'

dateTimeStamp <- function(character) {

  character <- as.character(character)

  time <- Sys.time()

  paste0(dirname(character), "/", format(time, "%y%m%d_%H%M%S_"), basename(character))

}